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Página Párrafo 
203 - 
203 - 
209 1 
209 1 
237 1 
261 1 
264 Figura 15 
278 - 
304 1 
324 7 
335 5 
374 APARTA- 
DO A) 
377 1 


TOMO il - FE DE ERRATAS 


Linea 


6 (pro- 
grama) 
65 (pro- 
grama) 
4 

3 

12 

9 


8602 (pro- 
grama) 

1 

1 

3 


1 


Dice 


6 print AT 1,5;"” SE 


65 ” AT11,28;"___”; 


(PUÑO) 

tijeras 

pierden 

(VER Figura 1) 

LAS HABITACIONES 

(23 y 24) y (29 y 30) : 
ESTAN COMUNICADAS 
AT263" 


viajas 

100 nombre 

M =CINTAN =AUTORS =TI- 
TULO 

RIO A$ (1,C$,12)Rio 


Sorpresa 


Debe decir 


6PRINTAT1,5;"_() >»; 


65 PRINT AT 11,28; (3) >»; 


(puño) 
TIJERAS 
pierde 

(ver Figura 15) 


NO ESTAN COMUNICADAS 
AT26,"_ 
viajar 

100 nombres 

M =CINTA/N =AUTOR/ 

S =TITULO 

Rio AS (1,C$, 12), 


Sorpresa”” 
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TOMO II 

JUEGO (INDICE) - PARTE IV 

PROGRAMA NUM. PAGINA 
ZOMBIES A or aaa cn AE E E ALA 197 
22 COMBATE: cespacial iia at ao bno 199 
SU SAN A ate OOOO ELENA E de 201 
A AMUINIZ AS E a O EL AN a 203 
A NETA aaa od ENE ada de 203 
ON ee LOA yd de 2... 205 
a A EABERINTO Maicao O da 207 
8 PIEDRAS papel tera O ao aa oe ao ASÍ OLE 209 
MIMO Ni Aa E do ad 211 
TO CUATO EN AY Ad O od 213 
MESDADO A E RABO DE CE a a eN 215 
12D EDUCCION a to conos a dea 219 
19% uego delos ESPIAS e O A o Na 221 
14.- El '*' HOTEL” de las 1000 habitaciones. .......ooococcconcncnncccononnnccnnncononnnnnnnano nono 225 
OT EOS A E IO CA ENE AA O 229 
TS CODIGOS OCreto atari O an da ONE O oa Md on os TUI 233 
TS EEXPA Na A Ra AE 237 
18:50 RRESWde ano iiASBI A e O O OLI LO 241 
19:Juego delos BARCOS nasa e IES 249 
20:>El CASTILLO encantado ein 261 
LT EY RODO M ii 269 
LLAMEN TAO A E E O ON AO E DE 281 
LIC U BOO RUDA o CE ET OO 289 
LAEDIE MADONNA ie do 299 
25.- La Guerra de las Galaxias ("WIGAN") ....ooooccccccccoccncccnnonnnnanonnnnnnnnnraccacananono 303 
26.- Relación de sentencias PRINT con caracteres inversos PARTE IV ....o.oooooccccc co... 317 


NOTA.- Para que el Programa cargue automáticamente, se han de añadir las sentencias, 
(en el caso de que NO estén ya en el Programa). 

9990 SAVE ' (NOMBRE DEL PROGRAMA)” 

9999 GOTO 1 

Para ello se ha de grabar previamente en cinta mediante: GOTO 9990 
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ARCHIVOS (INDICE) - PARTE V 


PROGRAMA NUM. PAGINA 
1.- Estrellas más importantes de la VIA LACTEA. (Programa STAR") ..ccoomccnocncos o: 324 
2.- Matrícula de coche europeas (Programa '"'CADENA??) .ooococcconcccncncanconenenanenerono 331 
3.- Archivo de cintas (Programa *"CINTA") c.oococonconconcnocaoo O Nos SSacES 335 
4.- Sistema Periódico de Elementos químicos (Programa ""ELEM”?) ...ooocccococcncnoronnns 343 
5.- Programa "DIETA" ooooocccccccncnnnonnncnnnononnnnnnnnnn nena nn nn rn remar nn ntn remera nene carnes 365 
6.- Relación de sentencias PRINT con caracteres inversos PARTE Vo ..ooooooccccconconanonos 373 
7.- Aplicaciónes didácticas de los ArchivOS ...oooooccocccononrnnncnnnnocnnnonrennrnnennrncntantenos 374 
EPILOGO (INDICE) - PARTE VI PAGINA 
1.- SALUDOS”? GuillerMo .....ooocococcccccncccnnn rn r arroces 377 
2.- Un abrazo: Federico (Programa '"CARTA) .oococcconconcnnncnnconananinnnnnnnnnannnnrncnneso 378 


3.- Relación de sentencias REM y PRINT con caracteres inversos o difíciles de inter- 
PMetal cc es 379 
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JUEGOS (BIBLIOGRAFIA) 


1.- Zombies. 
Getting adquainted with your ZX-81 (T. Hartnell, pag. 54) 
2.- Combate espacial. 
Sinclair ZX-81. Cassette Juegos 2 (Investrónica). 
3.- Gusano. 
Microcomputer Printout, Marzo 82 (Splatter) 
4.- Alunizaje. 
Getting adquainted with your ZX-81 (T. Hartnell, pag.37) 
5.- Planeta. 
Hints and Tips for the ZX-81 (HC. A.D. Hewson 1.981) 
6.- OVNI. 
Getting adquainted with your ZX-81 (T. Hartnell, pag.30) 
7.- Laberinto. 
Super Programs, Cassette n* 5 (ICL) 
8.- Piedra, papel, tijeras. 
Getting adquainted with your ZX-81 (T. Hartnell, pag.34) 
9.- Simon. 
Hints and Tips for the ZX-81 (HC, A.D. Hewson, 1.981) 
10.- Cuantro en raya (1-2). 
Sinclair ZX-81, Cassette Juegos 2 (Investrónica). 
11.- Dados. 
Sinclair ZX-81, Cassette Juegos 2 (Investrónica). 
12.- Deducción. 
Getting adquainted with your ZX-81 (T. Hartnell, pag. 47). 
13.- Juego de los espías. 
Traducción de E. LLorens. 
15.- Othello. 
The Magic Book (Timedata Ltd. Ed. 1.981, pag. 17 y S4). 
16.- Código secreto. 
Sinclair ZX-81, Cassette Juegos 2 (Investrónica). 
17.- Hexpawn. 
(The ZX-81) Magic Book (Timedata Ltd. Ed. 1.981, pag. 14). 
18.- Torres de Hanoi. 
Getting adquainted with your ZX-81 (T. Hartnell, pag. 110). 
19.- Juego de los barcos. 
Basic Computer Games, D.H. Ahl (Workman Publishing, New York, pag. 142). 
20.- El castillo Encantado. 
Computing Today, Enero 1.982 (pag. 92-95, traducción E. LLorens). 
TEORIA GENERAL DE LOS WUMPUS. 
More Basic Computer Games. D.H. Ahl. 
(Creative Computing Press, Morristown, New Jersey, pag. 178-181). 
21.- Twenty Rooms. 
Cluedo (juego para niños). 
22.- Minotauro. 
More Basic Computer Games. D.H. Ahl. 
(Creative Computing Press, Morristown, New Jersey, 107-110). 
23.- Cubo de Rubik. 
Your Computer, Febrero 1.982. (traducción Guillermo Meyer). 
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24.- Dictador. 
Your Computer, Febrero 1.982. (traducción Guillermo Meyer). 


25.- La Guerra de las Galaxias (Programa '"'WIGAN”>). 
Z X-81, Super-programs Cassette 8 (ICL). 
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JUEGOS 


Los juegos pueden desarrollarse en el ZX-81 debido a: 
A.- Su cálculo rapidísimo. 
B.- Su capacidad de almacenar datos y tomar decisiones conforme al programa. 


A.- Mediante el cálculo rápido y su salida por pantalla el ZX-81 tiene capacidad para desa- 
rrollar juegos de tipo visual: 


recordemos las célebres '' DAMAS de TIM HARTNELL, los "AJEDRECES”” de MICRO 
GEN Y ARTIC y los ''MAZOGS” actuales, verdadero prodigio de animación, todos ellos 
para ZX-81. 


Pero los juegos visuales interesantes son los desarrollados casi totalmente mediante códi- 
go máquina. De otra forma la respuesta del cálculo es lenta y la animación no produce el 
efecto dinámico deseado. 


Aquí lo que se pretende es exponer algunos juegos visuales de tipo medio que, aunque a 
veces se apoyen en código máquina, estén formados en su mayoría por sentencias BASIC. 


B.- Los juegos pueden también aprovechar la rapidez del ordenador y desarrollar juegos de 
habilidad e inteligencia en los que se mezclan a partes variables lo visual y el cálculo. 


Este es el caso de los juegos de BUSQUEDA (Los barcos, los 4 espias, El hotel de las 1.000 
habitaciones) y la habilidad (El castillo encantado, TWENTY ROOMS, WIGAN), por poner 
ejemplos concretos. 


Esta selección de juegos pretende que todos los incluidos son interesantes y hay juegos ori- 
ginales, tanto en su desarrollo como porque son primicia mundial (TWENTY ROOMS). 


Mis mejores deseos y ¡que ustedes lo jueguen bien!. 


*” ZOMBIES” (Programa 1) 
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El jugador es la letra A, los ZOMBIES son los 19 asteriscos (*) y los pantanos se dibujan en 


trama clara sobre fondo oscuro. 


El jugador tiene 2 clases de ventaja sobre los ZOMBIES: 
mueve 1 ó 2 posiciones cada vez y puede pasar al HIPERESPACIO (presionando la letra p) 


cuando está acorralado. 


Como los ZOMBIES no ven, se les puede hacer que se ahoguen en los pantanos. 


Este programa ocupa (3) K. 


MOVIMIENTO: 
Comandos 5-8 (mueve 2 posiciones). 


Para mover una posicion cambiar líneas 200 a 230. 
Haciendo U=U-1,V=V+1,V=V-1,U=U+1 


PROGRAMA NUM. 1 


1 FAST 
2LETG=0 

3 RAND 

5 DIM X(24) 

6 DIM Y(21) 

7 LETG=G+1 
8 PRINT AT 0,0;"PARTIDA NUM. = 

36; 

9 FAST 

10 PRINT AT 
11 PRINT AT 1,0; 
20 FORZ=1T0 19 
30 PRINT AT Z 


40 NEXT Z 
50 PRINT 


70 FORZ=1T0 42 

80 LETA =15*INT (Z/21) + 136 

90 GOSUB 1000 

100 IF INT (2/21) =1 THEN LET X(Z — 
18) =X 

110 1F INT (Z/21)=1 THEN LET Y(Z- 
20) = Y 

120 NEXT Z 

130 LETU=X 

140 LETV=Y 


150 SLOW 

160 IF INKEY$=”"”” THEN GOTO 160 

170 LETB=CODE INKEY$ 

180 IF B=56 THEN STOP 

200 IF (B=33 OR B=112 OR B=114) 
AND U»1 THEN LET U=U-2 

210 1F (B=34 OR B=113 OR B=114) 
AND V:«20 THEN LET V=V+2 

220 IF (B=35 OR B=112 OR B=115) 
AND V»1 THEN LET V=V-2 

230 IF (B=36 OR B=113 OR B=115) 
AND U:23 THEN LET U=U+2 

235PRINTATY,X;? mo” 

236 LETX=U 

237 LETY=V 

240 PRINTAT Y XA” 

250 FORZ=1T0 19 

260 IF X(Z) =0 THEN GOTO 350 

270 PRINT AT Y(Z)X(Z);” um >” 

280 LETS=0 

290 IF X(Z)-U THEN LET S=(X(Z)- 
U)/ABS (X(Z) — U) 

300 LETT=0 

310 1F Y(Z)-V THEN LET T=(Y(Z)- 
U)/ABS (Y(Z)-— V) 

320 LET X(Z) =X(Z)-S 

330 LET Y(Z) =Y(Z) -T 

331 PRINT AT Y(Z),X(Z); 

332 LET A$=CHR$ PEEK (PEEK 1639 
8 + 256 *PEEK 16399) 
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333 1F A$="H" THEN LET X(Z)=0 
334 1F A$="MA'" THEN GOTO 370 
335 1F INKEY$="P” THEN PRINT AT 


Y XX; €”";¡AT 0,16; "HIPERESPA- 
clo””; 

336 IF INKEY$=”P'” THEN GOSUB 
1000 


338 IF INKEY$="'P” THEN PRINT AT 


350 NEXT Z 

360 GOTO 130 

370 PRINT AT Y,X;” 

380 PRINT AT Y,X;” 

385 IF INKEY$="”"L” THEN GOTO 110 

390 GOTO 370 

1000 LET X=13+SGN (RND-.5)*INT( 
RND*(Z/3 AND Z<42) + 1) 

1010 IF X<20OR X>25 THEN GOTO 1000 


1020 LET Y=9+SGN (RND-.5)*INT ( 
RND*(Z/3 AND Z<42) + 1) 

1030 IF Y<2 OR Y>18 THEN GOTO 1020 

1040 PRINT AT Y,X;CHR$ A 

1090 RETURN 


1100 CLS 

1200 PRINT AT 5,0;''BIEN AMIGO: HAS 
PERDIDO.” 

1300 PRINT AT 7,0;”"QUIERES JUGAR 
OTRA VEZ?” 


1350 INPUT F$ 

1370 PRINT AT 9,5;F$ 

1380 IF F$=”NO” THEN GOTO 1500 

1400 IF FS$=”"SI”' THEN CLS 

1450 GOTO 3 

1500 CLS 

1600 PRINT AT 15,5;'"BIEN. HASTA LA 
VISTA.” 

1700 CLEAR 


1810 GOTO 1 


”COMBATE” ESPACIAL (Programa 2) 


199 


Dos naves espaciales, situadas a ambos lados de la pantalla disparan a 3 naves distintas 
que navegan aleatoriamente por el área central de la pantalla. Un contador calcula dispa- 
ros y blancos efectuados por cada una de las naves. 


Este programa ocupa (3) K. 


DISPARO: Presionar la letra '*N”* 


PROGRAMA NUM. 2 


COMBATE ESPACIAL 


6 
NAVE 1 1 
NAVE 2 1 
E 
MD — —CH 


5 PRINT TAB 9;”COMBATE ESPA- 
CIAL” 

7 PRINT 

10LETC=0 

12LETF=0 

15LETZ=11 

20 LETM=0 

25LETR=7 

26 LETT=23 

27 LETH=3 

30 LET Y =10 

35 LETS=9 

37 LETI=14 

40 LETX=11 

42 LETU=12 

45 LETW=0' 

50 PRINT AT 2,0; %% ESO 

60 PRINT AT  3,0;” AT, 
3,7; "NAVE 1 0” 

70 PRINTAT 4,7;'"NAVE 2 0” 

91 PRINTATUJT;”> ” 

93 PRINTATZ,W;” ” 

95 PRINTATR,S;” ” 

97 PRINTATH,I;" >” 


100 PRINTATX,Y;” *” 

102 LETU=10+INT(RND*4) 

105 LET W =0+INT(RND*3) 

110 LET X=8+INT(RND*5) 

112 LETH=7+INT(RND*7) 

114 LETR=10+INT(RND*5) 

115 LETT=23+INT(RND*5) 

117 LETI=9+INT(RND*5) 

120 LET Y =12+ INT (RND*5) 

123 LET Z=9+INT(RND*5) 

125 PRINT AT R,S;”-0-*” 

127 PRINT AT H,I;-0-*” 

130 PRINT AT X,Y;”-C-” 

135 PRINTATZ,W;'" BM D-” 

137 PRINTATU,T;”-CH ” 

139 PAUSE 70 

140 IF INKEY$<>"N” THEN GOTO 80 

150 FORD=Z-5TOY+7 

180 PRINT AT Z,D;"m "¡AT Z,D;” ” 

185 NEXTD 

19 FOR G=U+10 TO Z-5 STEP -1 

192 PRINT AT U,G; "¡AT UJG;” >” 

193 NEXT G 

195 1F X=Z OR H=Z OR R=Z THEN 
LETC=C+1 

200 IFX=UOR H=U OR R=U THEN 
LETF=F+1 

275 IF INT X<>Z OR INT R<>Z OR INT 
H<>Z THEN GOTO 280 

277 1F INT X<>U OR INT R<>U OR INT 
H<>U THEN GOTO 280 

280 LETM=M+1 

290 PRINT AT 2,17;¡M;¡AT 3,17;C;¡AT 
4,17;F; 

300 GOTO 80 

400 SAVE '"'COMBAT” 

410 GOTO 1 


*" GUSANO” (Programa 3) 
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Es un tiro al blanco (al Gusano) con tiempo limitado y contador de impactos. El gusano in - 
tenta moverse por la parte de la pantalla más alejada del punto de fuego, pero hay distintas 
tácticas para acertar a la cabeza del gusano, que es donde se contabiliza el impacto. 


Este programa ocupa (3) K. 


MOVIMIENTO DEL CAÑÓN: 
Pulsar letras Z y M 
Disparo: pulsar letra A 


PROGRAMA NUM. 3 


GUSANO 


TANTEO =1 
TIEMPO ES =36 


10 REM GUSANO 

15 PRINT AT 0,10;” 

20 GOSUB 9000 

30 LETM=A 

50LET A=A+INT (RND*4-RND*4) 

60 IF A<2 THEN LETA =2 

70 1|F A>30 THEN LET A =30 

75 LET TIME =TIME+1 

76 POKE 33*"B + M+14+PEEK X + 256 
“*“PEEK Y,0 

77 POKE 33*B + MM + 2+PEEK X + 256 
*PEEK Y,0 

78 POKE 33*B + M+3+PEEK X+ 256 
*PEEK Y,0 

79 POKE 33*B + M + 4+ PEEK X + 256 
*PEEK Y,0 

80 POKE 33*B+M+5+PEEK X+ 256 
*PEEK Y,0 

81 POKE 33*B+A+1+PEEK X+ 256 
*PEEK Y,108 

82 POKE 33*B+A+2+4+PEEK X+ 256 
*PEEK Y,129 

84 POKU 33*B+A+3+PEEK X+ 256 
*PEEK Y,129 

86 POKE 33*B+A+4+4+PEEK X+ 256 
“PEEK Y,129 

88 POKE 33*"B4+A+5+PEEK X+ 256 
*PEEK Y,129 

90 LETE=C 


100 IF INKEYS="'Z'” AND C >2 THEN 
LETC=C-1 
110 IFINKEY$=""M” AND C<30 THEN 
LETC=C+1 
115 POKE 33*D+E+1+PEEK X+ 256 
PEEK Y,0 
120 POKE 33*D+C+1+PEEK X+ 256 
*PEEK Y,128 
130 1F INKEY$="A”? THEN GOSUB 
5000 
140 GOTO 30 
5000 FOR W=10TO 4STEP - 2 
5010 PRINT AT W,C;” +” ¡AT W,C;” ” 
5020 NEXT W 
5030 IF C<>»A THEN RETURN 
5040 LETU=U+1 
5050 PRINT — AT 
U 
5060 PRINT AT 20,0; "TIEMPO ES=”'; 
TIME 
5070 IF U<5 THEN RETURN 
5080 PRINT AT 20,15;”"FIN DE LA PAR- 


18,0;'""TANTEO=”'; 


TIDA”” 
5090 STOP 
9000 REM ASIG. VARIABLES 
9010 LETA =3 


9020 LET B =3 

9030 LETC=15 

9040 LETD=15 

9050 LET X =16396 

9060 LET Y = 16397 

9070 LETU=0 

9080 LET TIME =0 

9090 PRINT AT 18,0;”"TANTEO”'U 

9100 PRINT AT 20,0; "TIEMPO ES="”; 
TIME 

9110 RETURN 

9990 SAVE '*GUSANO”” 

9999 GOTO 10 
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”ALUNIZAJE””, PLANETA” (Programas 4 y 5) 


Ambos son programas del tipo ''LANDER” (toma de tierra) en un determinado planeta. 
Las 3 variables que se estudian son altura, velocidad y combustible (FUEL). La velocidad 
del *'Alunizaje”” se expresa en M(illas) P(or) H(ora) y el dato a introducir para alimentar al 
programa es la aceleración deseada (+ = hacia abajo, - = hacia arriba). Si la altura «5 y 
la velocidad « 5 se aluniza correctamente. 


En ”Planeta” la velocidad se expresa en kilómetros por hora (KPH) y se toma tierra co- 
rrectamente en el planeta si la altura <10 y la velocidad (en valor absoluto) <3. 


En este programa aparece en pantalla la nave espacial que trata de aterrizar, la cual va ba- 


jando conforme a los datos que se suministran al programa. 


El ”Alunizaje”” ocupa 2K y **Planeta”* 2K. 


PROGRAMA NUM. 4 


ALTURA = 204.5 
FUEL = 176 


VELOCIDAD =5.5 


CUANTA ACELERACION (+/-)? =-5 


ALTURA =62 VELOCIDAD =1.5 
FUEL =272 


CUANTA ACELERACION (+ /-—)? 


ALTURA =62 FUEL =272 


É:*1.5*MPS 
1 FAST 
5PRINT— AT 0,5;”ALUNIZAJE” 


6 PRINT AT 1,5;” e 
7 PRINTAT 5,28; ” 
10 LET A =20+ INT (RND*60) 
20 LET B =450-— INT (RND *50) 
30 LET C=120- INT (RND*30) 
40 PRINT— AT 5,0; ALTURA ="”;B; 
dE “AT 6/07 "FUEL=":0G7 000 
45 PRINT AT 5,16;”"VELOCIDAD=""; 
ASE 
50 IF C:1 THEN GOTO 180 
60 PRINT AT 10,0;'"'CUANTA ACELE- 
RACION (+ / — )2” 


65 PRINT AT 11,28; —_—__—” 
70 INPUT T ¡ 

75 PRINT AT 10,26; =*";T 

77. PAUSE 50 

80 PRINT AT 10,0;” e 
85. PRINTAT 11,28; ” 

90 IF T>CTHENLETT=0 

100 LETC=C-T 

110 LETB=B-(A+T/2) 

120 LETA=A+T/2 
133 PRINT AT 5,8;” 
AT6,8;" >”; 

137 IF B>0 THEN GOTO 40 

140 IF ABS B<5 AND ABS A<5 THEN 
PRINT AT 5,0;"HAS ALUNIZADO 
CORRECTAMENTE”; 

150 1F ABS B<5 AND ABS A<5 THEN 
STOP 

160 PRINT — AT  5,0;”"ALTURA="; 
B; FUEL ="”;C;” a 4 

170 GOTO 190 

180 PRINT AT 5,0;""TE HAS QUEDADO 
SIN FUEL” 

190 PRINT AT 10,0;””: 
”*Mmps” 

200 PRINT AT 20,0;'"'QUIERES PRO- 
BAR OTRA VEZ? (S/N)” 

210 INPUT Ws$ 

220 IF W$=""S'” THEN GOTO 1 

230 STOP 

9990 SAVE "'ALUNIZAJÉ?* 

9999 GOTO 1 


"AT 5,263”; 


E SP ABS A; 
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PROGRAMA NUM. 5 


ST 
HT =7350 V=480 FUEL =650 


TE HAS ESTRELLADO 


QUIERES JUGAR OTRA VEZ? (S/N) 


HT=-5 V=20 FUEL=0 


20 LETS =7350 
40 LET V =480 


60 LET F =650 

80LET K=17-S/(7*(S»16)+56*(S> 
128) + 448*(S>1024) + 1) 

100 CLS 

120 PRINT '""“BEANEFRA” ¡AT 20,3, ” 

130 PRINT AT 20,5; ''¡AT 20,15; >; 


AT 20,28; ” 


140 PRINT "HT =";S;” V=";¡V;""FUEL 
=F 

160 1F F<0 OR S<0 THEN GOTO 340 

180 PRINT AT K,6;” 5 "¡TAB 5; 

TAB 5; "TT" 

200 IF S=0 OR 5<=10 AND ABS V<= 
3 THEN GOTO 380 

220 INPUT H : 

240 IF H<0 OR H>75 THEN GOTO 220 

260 LETF=F-H 

280 LETS=S-V-(5-H)/2 

300 LETV=V+5-H 

320 GOTO 80 

340 PRINT AT 19,5; mill >” 

360 PRINT AT 5,0;”TE HAS ESTRE- 
LLADO” 

370 GOTO 390 

380 CLS 

385 PRINT AT 5,0;'"TOMA DE TIE-— 
RRA PERFECTA” 

390 PRINT AT 9,0; "QUIERES JUGAR 
OTRA VEZ? (S/N)” 

400 INPUT A$ 

420 IF A$=""S” THEN GOTO 20 

9990 SAVE ''PLANET; 

9999 GOTO 20 
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"OVNI" (Programa 6) 


Una nave espacial ha de cazar 5 OVNIS generados aleatoriamente dentro del espacio dis- 
ponible de la pantalla como asteriscos (*). 


Para moverse la nave utiliza las teclas 5, 6, 7 y 8 y solo puede moverse en linea recta, que- 
dando su trayectoria señalada en pantalla mediante un rastro de puntos. 


Cada OVNI impactado explota, pasando a ser una O. 


En la parte superior izquierda de la pantalla aparece número de impactos y tiempo con- 
sumido. 


El tanteo que se consigue es (500-tiempo consumido), obteniéndose también el número de 
partidas jugadas y el promedio de tanteo. Un consejo: no deje pasar tiempo sin jugar. 
Sea rápido y eficaz. Es un juego ideal para niños de 7-10 años. 


Este programa ocupa 3 K. 


PROGRAMA NUM. 6 


QUIERES JUGAR OTA VEZ? (Si/No) 


EQ = 1209 
VECES =1 
(0/0) =1209 
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1LETT=0 
2LETW=0 
5 REMOVNI 
10 FAST 
20 GOSUB 1000 
100 FORA=1TO5 
110 PRINT AT D(A), A(A);CHR$ (B(A)) 
120 NEXTA 
130 FORA=1TO5 
132 IF B(A)<>180 THEN PRINT AT D(A) 
¿A(A)5 EE 
135 1F D(A)=P AND A(A)=0 THEN 
LETTALLY =TALLY + 1 
137 1F D(A)=P AND A(A)=Q THEN 
LET B(A) =180 
140 NEXT A 
150 PRINT AT P,Q,”X” 
155 PRINT AT P,Q;* y" 
160 IF INKEY$="5” THEN LET Q=Q 
1 
170 IF INKEY$="6'" THEN LET P=P 
+1 
180 IF INKEY$="7" THEN LET P=P 
1 
190 IF INKEY$=”8” THEN LEY Q=0Q 
+1 
195 LET TIME =TIME +1 
197 IF TIME=500 THEN GOTO 7000 
200 IF INKEY$=""" THEN GOTO 160 
210 1F P>21 THEN LETP=21 
220 IFP<2THENLETP=2 
230 IF Q<1 THEN LETQ=1 
240 IF Q>30 THEN LET Q =30 
250 PRINT AT 0,0;”"TANTEO *”";TALLY 
255 PRINT AT 1,0; "TIEMPO *”;TIME 
260 IF TALLY=5 THEN GOTO 5000 
270 GOTO 100 
1000 FOR Y =1 TO 22 
1020 FORX=1T0 32 
1030 PRINT m”; 
1040 NEXT X 
1050 NEXT Y 
1060 DIM A(5) 
1070 DIM B(5) 
1080 DIM D(5) 
1090 FORA=1TO5 
1100 LET A(A) =INT (RND*28) + 2 


1110 LET D(A) =2*INT (RND*10) 

1120 LET B(A) = 189 

1125 IF A(A)<15 AND D(A)J2 THEN GO- 
TO 1100 

1130 NEXT A 

1140 LETP=18 

1150 LETQ=18 

1160 LETTIME=0 

1170 LET TALLY=0 

1180 SLOW 

1190 RETURN 

5000 PRINT AT 3,3;""EL JUEGO TERMI- 
NO” 

5010 PRINT AT 4,3;”TU TANTEO ES”'; 
500 — TIME 

5015 LET F =500-TIME 

5020 PAUSE 100 

6000 GOTO 8000 

7000.PRINT AT 5,5;""TU NAVE HA EX- 
PLOTADO” 

7010 PRINT AT 5,5;”TU NAVE HA EX- 
PLOTADO” 

7020 PAUSE 200 

8000 CLS 

8100 PRINT AT 5,0;''QUIERES JUGAR 
OTRA VEZ? (SI/NO)” 

8200 LETT=T+F 

8220 INPUT S$ 

8280 IF S$=”sSI'”” THEN GOTO 8400 

8300 PRINT AT  7,0;”BUENO.PUES 
ADIOS” 

8350 STOP 

8400 LETW=W+1 

8450 PAUSE 200 

8500 CLS 

9000 PRINT AT 0,5;”* 

9002 PRINT— AT 3,5; 
AT 3,12;T 

9010 PRINT AT 5,5;”VECES=";AT 5, 
13;wW 

9020 PRINT AT 7,5;"(0/0)="'¡AT 7,12; 
INT (T/W) 

9030 PAUSE 200 

9050 CLS 

9100 GOTO 10 

9990 SAVE ''OVNP” 

9999 GOTO 10 


TEO ="; 
A 


"” LABERINTO” 
grama num. 7) 


(Autoexplicativo, Pro- 


ER LABERINTO 7 


EN ESTE JUEGO EL ZX-81 GENERA UN 
LABERINTO 
EL OBJETO DEL JUEGO ES ALCANZAR 
EL TESORO (M) SITUADO EN EL CEN- 
TRO DE LA PANTALLA SIN QUE 
EL JUGADOR (0): 
-SEA CAPTURADO POR UNO DE LOS 
3 GUARDIANES DEL TESORO (%) 
-CON SUFICIENTE AGUA (MEDIDA 
EN SORBOS) PARA HUIR CON EXITO. 
EL JUGADOR MUEVE UN LUGAR PRE- 
SIONANDO LAS TECLAS CON FLE- 
CHAS (5-8) 
CUANDO ESTES PREPARADO PULSA 
CUALQUIER LETRA 


ION 


EL LABERINTO SE ESTA GENERANDO 


AGUA: 
147 
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AGUA: 
36 


EL TESORO ES TUYO: ENHORABUENA 


1 REM LABERINTO 

10 PRINT TAB 5; *** LABERINTO 

20 PRINT TAB 10 —_—A__2 

30 PRINT ,, "EN ESTE JUEGO EL 
ZX-—81 GENERA UN LABERINTO” 

32 PRINT ,,”EL OBJETO DE JUEGO 
ES ALCANZAR EL TESORO (WM) SI- 
TUADO EN EL CENTRO DE LA 
PANTALLA SIN QUE EL JUGADOR 
(9): 

40 PRINT,,''- SEA CAPTURADO POR 
UNO DE LOS 3 GUARDIANES DEL 
TESORO (*)” 

42 PRINT *”-CON SUFICIENTE AGUA 
MEDIDA EN SORBOS) PARA HUIR 
CON EXITO.” 

50 PRINT ,,”EL JUGADOR MUEVE 
UN LUGAR PRESIONANDO LAS 
TECLAS CON FLECHAS (5-8)"* 

60 PRINT ,,'*'CUANDO ESTES PREPA- 
RADO PULSA CUALQUIER LE- 
TRA” 

7OIF INKEY$=”"'” THEN GOTO 70 

80 CLS 

85 PRINT AT 5,10; 4 ON 

90 PRINT AT 8,0;”EL LABERINTO 
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SE ESTA GENERANDO” 
91 RAND 
100 DIMAS(19,19) 
110 FORN=1T0 19 
120 LETAS(N)="" 
130 NEXT N 
140 FORN =1TO9STEP 2 
180 LETAS(N,N)=" E ” 
190 LET AS(N,20-N)=” “1 ” 
200 LET A$(20-N,N)=” FP” 
2MOLET  AS(20-N,20-N)=” Wi ” 
220 FOR M=2T0 18 
230 1Ff M<=N OR M>=20-N THEN 
GOTO 280 
240 LETAS(M,N)=" E ” 
250 LETAS(M,20-N)=" mn ” 
260 LETAS(N,M)="" mu ” 
270 LETAS$(20-N,M)=" m ” 
280 NEXT M 
290 NEXT N 
300 LET AS$(11,10)="" ” 
310 LET A$(7,8+ RND*4)=" ” 
320 LET AS(15,6+ RND*8)="” ” 
330 LET A$(3,4+RND*12)=" ” 
340 LET  A$(19,2+ RND*16)="” ” 
350 LET G =150 
360 LETQ=1 
365 LETR=-1 
367 LETS=1 
370 LETK=10 
374 LETM=15 
380 LETL=19 
390 PRINT AT 8,0; ” 
395 PRINTAT 5,0;  ” 
400 FORN=1T0 19 
410 PRINT AT N,6;A$(N) 
420 NEXT N 
430 PRINT AT 10,15; mM ” 
440 LET | =21 
450 LETJ=0 
460 PRINT AT 1,J; 8” 
470 PRINTAT6,1;” >”; 
472 PRINT AT 5,0;”AGUA:”'¡AT 6,1;G; 
500 LET N =CODE INKEYS$ - 28 
510 IF N>8 THEN GOTO 500 
520 LETX=1+(N=6)- (N =7) 
530 LET Y =J+(N=8)- (N =5) 
540 IF X<1 THEN GOTO 500 
550 IF X>21 THEN GOTO 500 
560 IF Y<0 THEN GOTO 500 
570 IF Y>30 THEN GOTO 500 


580 IF X>19 THEN GOTO 650 

590 IF Y>25 OR Y<6 THEN GOTO 650 

600 IF AS(X,Y-5)>”* "THEN GOTO 
500 

650 PRINT AT 1,J;” *” 

660 LET | =X 

670 LETJ=Y 

680 LETG=G-1 

690 IF G =0 THEN GOTO 900 

700 PRINT AT 4,K;” ” 

701 PRINTAT 14,M;” ” 

705 PRINT AT 16,L;” ” 

7101F |=4 AND J=K THEN GOTO 


950 

7151F 1=16 AND J=L THEN GOTO 
950 

718 |F I|=14 AND J=M THEN GOTO 
950 


720 LETK=K=+0Q 

722 LETM=M+S 

725 LETL=L+R 

726 IF K=100R K=21 THEN LET Q= 


Q*(-1) 

727 IF L=10 OR L=21 THEN LET R= 
Rot) 

728 IFM=130RM=18 THEN LETS= 
S*(-1) 


730 PRINT AT 4,K; 0%” 
732 PRINT AT 14,M; 
735 PRINTAT16,L ;” 
740 1F |=4 AND J=K THEN GOTO 
950 
742 1F |=14 AND J=M THEN GOTO 
950 
745 |IFl|=16ANDJ=L THEN GOTO 950 
750 1F 1=10 AND J=15 THEN GOTO 
920 
800 GOTO 460 
900 PRINT AT 21,0;"* MUERTO -TE HAS 
QUEDADO SIN AGUA” 
910 STOP 
920 PRINT AT 21,0;”EL TESORO ES 
TUYO: ENHORABUENA” 
930 STOP 
950 PRINT AT 21,0;”"CAPTURADO Y 
MUERTO...” 
9970 STOP 
9990 SAVE "'LABERINT” 
9999 GOTO 1 


Este Programa ocupa 4.5 K 
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PIEDRA”, PAPEL, TIJERAS (Programa 8) 


Juego muy popular a raiz de la serie de TV '*HEIDI”, donde lo jugaban la protagonista , 
su amiga CLARA y la abuela de ésta. 


Se trata de 3 elementos: 


1.- PIEDRA (PUÑO), que es envuelto (pierde) por el PAPEL (mano abierta) y gana a las 
tijeras (dedos índice y corazón). 


3.- PAPEL, gana a piedra pero es cortado por las tijeras. 

2.- TIJERAS, ganan a papel pero pierden su filo con la piedra. 

El usuario juega contra el ordenador mediante (1,2,3, + NL) y los tanteos de ambos apa- 
recen en el centro de la pantalla. El ordenador genera aleatoriamente su respuesta y el 


veredicto sobre quien gana o si ha habido empate. 


Este programa ocupa 2K 


PROGRAMA NUM. 8 1LETP=0 
2LETC=0 
PIEDRA, PAPEL, TIJERAS 5 PRINT ”PIEDRA,PAPEL,TIJERAS 
ESCRIBE: 6 PRINT ” En E 
PIEDRA =1, 7 PRINT 
TIJERAS =2, 10 RAND 
PAPEL =3 20 DIM A$(3,7) 
30 LET A$(1) = PIEDRA” 
PIEDRA, PAPEL, TIJERAS 40 LET A$(2) = TIJERAS” 
50 LET A$(3) ='""PAPEL”” 
TANTEO: 60 LETP=0 
TU TIJERAS 70 LETC-0O 
0 75 PRINT ESCRIBE: 
PIEDRA=1, 
TANTEO: TIJERAS =2, 
YO PIEDRA GANO YO PAPEL =3” 
0 77 PAUSE 150 
80 CLS 
81 PRINT ”PIEDRA,PAPEL,TIJERAS 
TANTEO: ” Lo 
TU TIJERAS GANAS TU 82 PRINT *” ” 
2 83 INPUT A 
85 IF A>3 OR A>3 OR A>3 THEN GO- 
TANTEO: TO 80 
YO PAPEL 93 PRINT AT 12,0;'*TANTEO:” 


1 96 PRINT AT 14,0; "TANTEO:” 
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100 LET B=INT(RND*3)+ 1 

110 PRINT AT 11,10;""TU”, AS(A);TAB 
11;P 

120 PRINT AT 14,11; YO”, A$(B);TAB 
11;C 

130 PRINT AT 3,12; 

140 IFA=B THEN GOTO 190 

150 |F A=1 AND B=2 OR AND B=3 
OR A=3 AND B=1 THEN GO- 
TO 210 

160 PRINT AT  14,23;"GANO YO” 

170LETC=C+1 


179 PAUSE 150 

180 GOTO 80 

190 PRINT— AT 17,23; EMPATE” 
195 PAUSE 150 

200 GOTO 80 

210 PRINT AT 11,23;”"GANAS TU” 
220 LETP=P+1 

225 PAUSE 150 

230 GOTO 80 
9990 SAVE PIEDRA?” 
9999 GOTO 1 
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**SIMON” (Programa 9) 


Es un programa que valora y refuerza la memoria del jugador. 


Se elige el número de caracteres que se quieren recordar, y el ZX-81 genera aleatoriamente 
una cadena con dichos caracteres, los cuales se pueden visualizar durante un tiempo limi- 
tado de segundos en función del número de caracteres elegido. 


Como la dificultad de recordar un cierto número aumenta exponencialmente a partir de 7 y 
el tiempo proporcionado por el ZX-81 no es tan grande, aparece en pantalla el consejo: 
'"memoriza rápido””. 


El jugador debe escribir los caracteres de la cadena generada por el ordenador y EN EL 
MISMO ORDEN QUE APARECIERON EN PANTALLA. Inmediatamente después aparece 
la cadena verdadera, la cual se valora con un tanteo conservador, señalando también nú- 
mero de veces que se ha jugado, porcentaje y tanteo máximo obtenido. 


Cuando el tanteo es superior a 50.000 aparece un mensaje: '*'BIEN, HAS GANADO””, y el 
juego vuelve a empezar. 


Cada jugador tiene unas aptitudes diferentes. Si la puntuación establecida parece ALTA se 
puede modificar la sentencia 520 en el sentido deseado (dividiendo J entre 100, por ejem- 
plo) o subir el tope Q hasta 500.000 por ejemplo. Todo lo dicho debe ser al contrario si (po- 
co probable) la puntuación establecida parece baja. 


Este programa ocupa 2 K. 


PROGRAMA NUM. 9 


SIMON 
NUMERO DE CARACTERES? (: =20) 


SIMON 
ESCRIBE LOS CARACTERES QUE RE- 
RECUERDES EN EL MISMO ORDEN 
YCR44X 


LA CADENA ERA YCR44X 


TANTEO =9194 
TANTEO TOTAL =9194 
NUM. VECES =1 
0/0=9194 

TANTEO MAXIMO =9194 


ESCRIBE LOS CARACTERES QUE RE- 
CUERDES EN EL MISMO ORDEN 
O0VQV3P 


LA CADENA ERA OVQV3P 


TANTEO =9195 

TANTEO TOTAL = 18389 
NUM. VECES =2 

0/0 =9194 

TANTEO MAXIMO =9195 


ESCRIBE LOS CARACTERES QUE RE- 
CUERDES EN EL MISMO ORDEN 
TDS5J5ES 
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LA CADENA ERA TDS85J508 


TANTEO = 9199 
TANTEO TOTAL =36787 
NUM. VECES =3 
0/0=12262 

TANTEO MAXIMO = 9199 


$S 


EQU 
TANTEO = 9204 
TANTEO TOTAL =56212 
NUM. VECES =6 
0/0 =9368 
TANTEO MAXIMO = 9204 


BIEN, HASGANADO 


10 REM SIMON 

15LETF=0 £ 

17 LETQO=0 + 

20 LET Z$=*"12345678901234567890"”' 

40 LET Z = -— 9999999 

60 GOSUB 620 

80 PRINT "NUMERO DE CARAC- 
TERES? (<=20)”” 

100 INPUJ 

120 IF J<1 OR J>20 THEN GOTO 100 

140 GOSUB 620 

160 PRINT *"'MEMORIZA RAPIDO” 

170 PRINT 

180 FORI|I=1TOJ 

200 LET Z$(1) =CHR$ (INT (36*RND) + 
28) 

220 PRINT Z$(1); 

240 NEXT | 

260 PAUSE 500 

280 LET T=PEEK 16436/256 + PEEK 
16437 

300 GOSUB 620 


320 PRINT '*ESCRIBE LOS CARAC- 
TERES QUE RECUERDES EN EL 
MISMO ORDEN” 

340 INPUT A$ 

360 PRINT A$ 

370 PRINT 

380 PRINT "LA CADENA ERA” 

400 PRINT Z$(TO y) 

420 FORI=1T0J 

440 1F I>5LEN A$ THEN GOTO 480 

460 IF A$(I)=Z8$(1) THEN GOTO 500 

480 LETJ=J-2 

500 NEXT | 

510LETF=F+1 

520LET J=J+SGN J*INT  (J*J*T) 

540 IF J>Z THEN LET Z=J 


550 LETQ=0+J 

552 PAUSE 200 

554 CLS 

556 PRINT * SEMEN" 

557 PRINT 

558 PRINT P JACION:”” 

560 PRINT AT 5,5; "TANTEO”';AT 5,18; 
"=":¡J¡AT 7,5; "TANTEO TOTAL”; 


ATA 

565 PRINT AT 9,5;"NUM. VECES”;AT 
918: = "EAT 105: MOJO” AT 
11,18; =";INT(Q/F) 

567 PRINT AT 13,5;"TANTEO MAXI- 
MO”;AT 13,18; ="Z 


570 IF Q>50000 AND INT (Q/F)>2500 
AND F<20 THEN PRINT AT 18,5;” 
BIEN, HASGANADO” 

580 PAUSE 500 

600 GOTO 60 

620 CLS 

640 PRINT ""SIMERP> 

660 PRINT 

680 RETURN 

9990 SAVE *"SIMONE” + 
9999 GOTO 1 
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CUATRO EN RAYA (UNO/DOS) (Programas 10-A y 10-B) 


En ambas versiones las fichas del jugador son negras y las del ZX-81 grises. 


Pero mientras en el primero cada uno de los jugadores dispone de 4 FICHAS en el segundo 
el número de fichas de cada uno solo está limitado por las dimensiones establecidas (18 en 
este caso). 


La forma de situar las FICHAS también es diferente en cada caso. En la versión UNO se 
debe introducir un origen y un final de movimiento (el mismo en caso de ser los 4 primeros 
movimientos), mientras que en la versión DOS el cuadro donde se sitúa la FICHA se da 
directamente. 


Este programa ocupa 2 K. 


18 PRINT AT 5,0;'7 8 9 10 
11 12” 

21 PRINT— AT  8,0;”13 14 15 
16 17 18 

23PRINT AT  11,0;'19 20 21 
22 23 24” 

25 PRINT AT 14,0;'25 26 27 
28 29 30”” 

27 PRINT— AT 17,0; 31 32 33 
34 35 36” 

30 FORN=8T0 128 STEP 120 

40 LET B$=CHR$ M 

50 PRINT AT 20,0;B$;""ORIGEN”' 


PROGRAMA NUM. 10-A 


CUATRO EN RAYA/UNO 
3 4 5 6 
9 10 11 12 
15 16 17 18 
21 22 23 24 
27 28 29 30 
33 34 35 36 


CUATRO EN RAYA/UNO 


3 4 5 6 60 INPUT O 
10 41m 12 70 PRINT AT 20,2;'"DESTINO” 
17 18 80 INPUT D 
2 aa 90 IFO=00RD=0THEN RUN 
2% 30 130 PRINT AT 20,2;” e 
35 36 150 LET T$(0) =STR$ O 
160 LET T$(D) =B$ 
200 LETH =1 
210 FORK =2T0O 17 STEP 3 
1 FAST 220 FORL=1TO 26 STEP 5 
10 LET T$=''12345678901234567890123 240 PRINT AT K,L;TS(H) 
4567890123456” 260 LETH=H+ 1 
12 PRINT AT 0,3;'"CUATRO EN RAYA/ 280 NEXT L 
UNO” 300 NEXT K 
15PRINT AT 2,0;”1 O AA 320 NEXT N 


5 6" 330 GOTO 30 
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PROGRAMA NUM. 10-B 


10 LET T$ =”"12345678901234567890123 
4567890123456". 


5 6” 
18 PRINT AT 5,0;77 8 9 
11 12” 


21 PRINT— AT 8,0;13 14 
16 17 18” 
23PRINT AT  11,0;”19 20 
22 23 24” 
25PRINT AT  14,0;'*25 26 
28 29 30” 
27 PRINT AT  17,0;”31 32 
34 35 36” 
30 FORN =8TO 128 STEP 120 
40 LETB$=CHR$N 
45 SLOW 
50 PRINT AT 20,0;B$;""CUADRO”” 
60 INPUT O 
90 IFO=0THEN GOTO 60 
150 LET T$(0) =B$ 
200 LET H =1 
210 FORK =2T0 17 STEP 3 


220 FORL=1TO 26STEP 5 
240 PRINT AT K,L;TS(H) 
250 FAST 

260 LETH=H+1 

280 NEXT L 

300 NEXT K 

320 NEXT N 

330 GOTO 30 
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”DADOS” (Programa 11) 
Este juego tiene una primera parte autoexplicativa. 
Pueden jugar 4 jugadores como máximo. Cada uno de ellos tiene la opción de obtener 5 
letras iguales en 3 tiradas, pudiendo mantener o nó cada vez las letras (CARAS DEL 


DADO) obtenidas en la tirada anterior. 


Cada cara del dado tiene una puntuación diferente y se supone potestativo de los jugadores 
el permitir una 4.* jugada en caso de REPOKER. 


Una vez realizada la jugada la valoración de resultados NO es automática. 
Se debe indicar primeramente al ZX-81 la letra objetivo y el jugador que ha tirado (por 
ejemplo A1, si ha tirado a ASES el jugador n* 1) y a continuación la puntuación obtenida 


(6 x 4 =24 si ha conseguido 4 ases). 


Las letras ya elegidas en jugadas anteriores no pueden repetirse y todo jugador debe tirar 
6 veces. 


Una vez hecho ésto gana el jugador cuya puntuación total sea la mayor obtenida por los 
jugadores. 


Este programa ocupa 5.5 k. 


PROGRAMA NUM. 11 


ESTE ES UN JUEGO CON 5 DADOS.SE 
DEBEN HACER 6 JUGADAS, CADA 
UNA APOSTANDO A UNA CARA DEL 
DADO. EL VALOR DECADA CARA ESt 


REPITE 
MANTIENE [] DODO 
INICIA 

3.145 


$ PUNTUACION 2 
BÉ PARAR 
NRYJIQHKA TOTAL 


—  — mom 


PXRotuz 
"nusutlna 
Drs O ma 


NUM. 1 = 
NUM. 2 = 
NO PUEDE REPETIRSE LA CARA APOS- NUM. 3 = 
TADA Y SOLO SE VALORAN LOS DA- NUM. 4 = 


DOS CON ESA CARA ACERTADA. 

EN CADA JUGADA PUEDEN HACERSE 
3 TIRADAS. 

PUEDEN JUGAR 4 PERSONAS COMO 
MAXIMO, JUGANDO CADA UNA AL- 
TERNATIVAMENTE HASTA COMPLE- E 
TAR LAS 6 JUGADAS. $ PUNTUACION — 1 2 3. 4 5 
QUE GANE EL MEJOR 6: PARAR 
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NUM. 1 =15 

NUM. 2 m0 

NUM.3 = 9 
NUM. 4 = 

DADO 1 DAR1 =4 

1 PRINT ” ESTE ES UN JUEGO 


CON 5 DADOS, SE DEBEN HACER 
6 JUGADAS, CADA UNA APOS- 
TANDO A UNA CARA DEL DADO. 
EL VALOR DECADA CARA ES ft 


A= 
PRINT "NO PUEDE REPETIRSE 
LA CARA APOSTADA Y SOLO SE 
VALORAN LOS DADOS CON ESTA 
CARA ACERTADA. 
EN CADA JUGADA PUEDEN HA- 
CERSE 3 TIRADAS. 
PUEDEN JUGAR 4 PERSONAS CO- 
MO MAXIMO, JUGANDO CADA 
UNA ALTERNATIVAMENTE HAS- 
COMPLETAR LAS 6 JUGADAS. 
dE QUE GANE EL MEJOR 
3 PAUSE 1000 
4 CLS 
5 PRINT "E 


2 


, 
SERE 
, 


sl 0 
mantiene] ]] | og 
cla”, "L 2d 
3.4 5" 

6 PRINT AT 5,0; *HPUNTUACION”” 

7 PRINT AT 8,8; "N "¡AT 8,11;"R”; 
AT8,143J”; 

8 PRINT AT 6,0; "BPARAR” 

9 PRINT AT 8,17;'"0”;¡AT 8,20;"K”; 
AT 8,23; A”; 

10 PRINTAT 9,7; oo — === 


a 
, 
, 

> 


11 PRINT AT 11,26; =”;AT 13,26; 
"==" ¡AT o 15,26; =";¡AT 17,26; 


12 PRINT AT 8,27;'*TOTAL”” 
14 PRINT AT 11,0;'"NUM. 1” 
16 PRINT AT 13,0;""NUM. 2” 


18 PRINT AT 15,0;'""NUM. 3” 

20 PRINT AT 17,0;'"NUM. 4” 

21 LETT1=0 

22 LETT2=0 

23 LETT3=0 

24 LETT4=0 ] 

27 PRINT AT 20,10;"DAR ¿ 
Ma= 00 

23 INPUT P 

29 PRINT AT 20,26; P 

30 PRINT AT 20,0;'""TIRANDO” 

31 LETAS="AKQJRN” 

32 DIM A(5) 

33 LETH =17 

34 FORK=1T05 

35 IF A(K)<>0 THEN GOTO 71 

40 FORN=1.TO 15 

55 LET A =INT (RND*6) 

60 PRINT AT 3,H;AS(A + 1) 

65 NEXT N 

71 LETH=H+3 

72 NEXT K 

73 FORJ=1T05 

74 PRINT AT 20,0;"DADO”';J 

75 INPUT A(J) 

76 IF A(J) =9 THEN GOTO 82 

78 1F A(J) =5 THEN GOTO 27 

79 IF A(J) =6 THEN GOTO 5000 

80 NEXTJ 

81 GOTO 33 

82 IF A(J)=9 AND P=1 THEN GOTO 
89 

83 IF A(J) =9 AND P=2 THEN GOTO 
1089 

84 IF A(J)=9 AND P=3 THEN GOTO 
2089 

85 IF A(J)=9 AND P=4 THEN GOTO 
3089 

89 LET X1=0 

91 LETX$="N1R1JIQIKIA1” 

93 DIM X(6) 

95 PRINT AT 20,103” DAR X$ 
¿AT 20,21; "DAR X1” 

101 INPUT X$ 

105 INPUT X1 

110 1FX$="N1” THEN PRINT AT 11,8; 
X1 

115 1F X$="R1” THEN PRINT AT 
11,11,X1 

120 1F X$="J1” THEN PRINT AT 
11,14;X1 


125 1F X$='"0Q1'” THEN PRINT AT 11, 


17;X1 

130 1F X$="”K1' THEN PRINT AT 11, 
20;X1 

135 1F X$="A1' THEN PRINT AT 11, 
23;X1 


140 LET X1 =0+X1 

155 LET T1 =T1 +X1 

160 PRINT AT 11,29;T1 

195 PAUSE 150 

197 PRINTAT 3,17;” '';AT 3,20; "¡AT 
32 ATI ZO ATL 

200 GOTO 27 

1089 LET Y2=0 

1091 LET Y$ ='"'N2R2J202K2A2”” 

1093 DIM Y(6) 

1095 PRINT AT 20,10;'"DAR Y$”;AT 20, 
21; "DAR Y2” 

1103 INPUT Y$ 

1105 INPUT Y2 

1110 IF Y$="N2” THEN PRINT AT 13,8; 


Y2 
1115 1F YS=”R2'” THEN PRINT AT 13, 
11,Y2 
1120 1F Y$="J2' THEN PRINT AT 13, 
14;Y2 
11251F Y$="”0Q2” THEN PRINT AT 13, 
17;Y2 
1130 IF YS=”K2'” THEN-PRINT AT 13, 
— 20;Y2 
1135 IF YS$=”A2” THEN PRINT AT 13; 
23;Y2 


1140 LET Y2=0+Y2 

1155 LETT2=T24+Y2 

1160 PRINT AT 13,29;T2 

1195 PAUSE 150 

1197 PRINT AT 3,17; "¡AT 3,20;” ””; 
AT 3,23;”* "¡AT 3,26;”” "¡AT 3,29; 

1990 GOTO 27 

2089 LET Z3=0 

2091 LET Z$ ='"N3IR3J30O3K3A3”” 

2093 DIM 2Z(6) 

2095 PRINT AT 20,10;""DAR Z5$”*;AT 20, 
21; "DAR Z3” 

2103 INPUT Z$ 

2105 INPUT Z3 

2110 1FZ$=”"N3"” THEN PRINT AT 15,8; 
z3 

2115 1F Z5=”R3” THEN PRINT AT 15, 
11;Z3 
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2120 IF Z$="”"J3'"* THEN PRINT AT 15,14 
:Z3 

2125 1F Z5="'"0Q3” THEN PRINT AT 15, 
17;Z3 

2130 1F 25='"K3'” THEN PRINT AT 15, 
20;Z3 

2135 1F Z5$='"A3” THEN PRINT AT 15, 
23;Z3 

2140 LET Z3=0+2Z3 

2155 LET T3=T3+2Z3 

2160 PRINT AT 15,29;T3 

2195 PAUSE 150 

2197 PRINT AT 3,17; "¡AT 3,20; ¡AT 
SLIAAA TEO ATA LO 

2990 GOTO 27 

3089 LET W4=0 


3091 LET W$ =""N4R4J404K4A4” 

3093 DIM(6) 

3095 PRINT AT 20,10;''DAR W$”;AT 20, 
21: "DAR WA4” 


3103 INPUT W$ 
3105 INPUT Wa 
3110 IF WS$=""N4” THEN PRINT AT 17,8 


¡W4 

3115 IF W$="R4” THEN PRINT AT 17, 
11;W4 

3120 IF W$=""J4” THEN PRINT AT 17, 
14;W4 

3125 IF W$="'04” THEN PRINT AT 17, 
17;W4 

3130 IF W$=""'K4*” THEN PRINT AT 17, 
20;W4 

3135 IF WS$=""A4” THEN PRINT AT 17, 
23;W4 


3140 LET W4=0+WA4 

3155 LET T4=T4 + W4 

3160 PRINT AT 17,29;T4 

3195 PAUSE 150 

3197 PRINT AT 3,17;” "¡AT 3,20;” ””; 
AT 3,23; ¡AT 3,26; "¡AT 3,29; 


13.35 


3990 GOTO 27 


5000 CLS 
5050 PRINT "DESEAS VOLVER A JU- 
GAR? SI/NO””; 


5053 INPUT F$ 

5055 PRINT AT 3,0;F$ 

5060 IF F$="*SI”? THEN CLS 

5067 IF F$='"NO”* THEN CLS 

5070 PRINT— AT 10,5; "HASTA LA 
PROXIMA VEZ” 
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5072 PAUSE 400 
5075 CLS 
5100 RUN 


9999 GOTO 1 
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*”DEDUCCION” (Programa 12) 


Es un programa educativo para EGB y se basa en la habilidad del jugador en obtener una 
raiz cuadrada. 


El ZX-81 obtiene aleatoriamente un número A entre 1 y 200. 


El jugador propone un número C (entre 1 y 200) y el ordenador genera una PISTA cuyo va- 
lor es la raíz cuadrada del valor absoluto de (A-C). 


Ahora el jugador debe elevar al cuadrado el número expresado en la pista anterior y sumar- 
lo o restarlo del C, dependiendo esta opción del sentido común del jugador. 


Normalmente un número debe acertarse en menos de 10 respuestas, pero en caso de estar 
aprendiendo a obtener raices cuadradas ésto no sucederá al principio y el jugador PER- 
DERA. 


Posteriormente a un acierto aparece en la pantalla la puntuación: parcial (sobre un máxi- 
mo de 100), acumulada y promedio. 


Este programa ocupa 1 K. 


PROGRAMA NUM. 12 30 FORB=1T010 
: 40 SCROLL 
RESP. NO. *1 50 PRINT "RESP. NO. *”;B 
h * 34 PISTA-*11.6619 60 INPUT C 
RESP. NO. *2 70 SCROLL 
j * 157 PISTA-*3.6055 80 IFC=A THEN GOTO 110 
RESP. NO. *3 90 PRINT "NG **;C, "PISTA-"";¡INT 
No * 167 PISTA-*1.732 (10**4*SQR — (ABS(A-—C))/10**4 
RESP. NO. *4 100 NEXT B 
NUM. =170 EN 4 110 SCROLL 
119 PRINT 
DEDUCCION 125 PRINT AT 
PUNTUACION: 142 1F B>=10 THEN PRINT AT 20,15; 
PARCIAL 70 "LO SIENTO, HAS PERDIDO” 
ACUMULADO 70 145 PAUSE 350 
NUM. JUEGOS 2 150 CLS 
PROMEDIO 35 155 LETG =10*(11-B) 
157 LETW=W+G 
5 REM "DEDUCCION” 160 PRINT AT 0,5;'”'DEDUCCION” 
7TLETF=13, 162 PRINTAT 1,5; cel a 
9LETW=0 + 165 PRINT AT 3,0;'"'PUNTUACION”* 
10 LETA =INT(RND*200) + 1 170 PRINT AT 5,5;”"PARCIAL”” 


20 IFAND>RND THEN GOTO 10 180 PRINT AT 7,5; ACUMULADO” 
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190 PRINT AT 9,5;"NUM. JUEGOS” 
200 PRINT AT 11,5; "PROMEDIO”” 
210 PRINT AT 5,16;G 

220 PRINT AT 7,16;W 

230 PRINT AT 9,16;F 

240 PRINT AT 11,16;W/F 


242 LETF=F+1 
245 PAUSE 350 
255 CLS 

260 GOTO 10 
1000 SAVE 'DEDUCCION 
1001 RUN 


PROGRAMA NUM. 13, ESPIAS” 
(Autoexplicativo) 


HAS DE ENCONTRAR 4 ESPIAS ESCON- 
DIDOS EN UNA CUADRICULA DE 11*11 

TU BASE DE SALIDA ES LA CASILLA 

(0,0) 

TU TIRADA SERAN 2 NUMEROS: 
-EL PRIMERO ES LA DISTANCIA A LA 
DERECHA DE LA BASE 
-EL SEGUNDO ES LA DISTANCIA POR 
ENCIMA DE LA BASE 

SE TE DARA LA DISTANCIA A CADA 

ESPIA O SE TE DIRA SE HAS ACERTA- 

DO A UNO DE ELLOS 

PUEDES PEDIR UN RESUMEN DE DIS- 

TANCIAS A CADA ESPIA DESPUES DE 

CADA TIRADA 


TIRADA 5: ¿6127 
> s 2 
LSO S=sS.S(Me . » 
.. .- ...o.. 2.2... 815 
E E E 

4 4 7.52 
2£D UNO .<s.:=:0wx.-n-.n(56 5 
nn. -. Don Ela ==. 2 £ ' 

RESUMEN , 
2. €a$K< q. -0.U. n= == <S10NQ7 
. <<. : 2. Mos nz... 
ns. nn. -.  . Mn 2 2. 2 
E E E 
son... Ds. 2 «ss 

JA, JA, JA. NO ENCONTRASTE TODOS 
TIRADA DISTANCIA LOS ESPIAS EN LAS 10 TIRADAS 
AAA E QUIERES SABER DONDE ESTAN LOS 
QUE NO ENCONTRASTE? 

(5,5) 5.66 
(3,5) 7.21 ESPIA POSICION 
(5,3) 7.21 dd kdd EEES 
(5,0) 9.85 4 (9,9) 


(6,2) 7.62 


QUIERES JUGAR OTRA VEZ? 
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20 PRINT AT 1,8;” 

30 PRINT "HAS DE ENCONTRAR 4 
ESPIAS ESCONDIDOS EN UN CUA- 
DRICULA DE 11*11” 

40 PRINT "TU BASE DE SALIDA ES 
LA CASILLA (0,0)”” 

50 PRINT ”"TU TIRADA SERAN 2 NU- 
MEROS:” 

60 PRINT ”-EL PRIMERO ES LA 
DISTANCIA A LA DERECHA DE 
LA BASE” 

70 PRINT ”-EL SEGUNDO ES LA DIS- 
TANCIA POR ENCIMA DE LA BA- 
sE” 

80 PRINT 

90 PRINT "SE TE DARA LA DISTAN- 
CIA A CADA ESPIA O SE TE DIRA 
SI HAS ACERTADO A UNO DE 
ELLOS” 

100 PRINT "PUEDES PEDIR UN RE- 
SUMEN DE DISTANCIAS A CADA 
ESPIA DESPUES DE CADA TIRA- 
DA” 

110 PRINT 

120 PRINT 

130 PRINT ” 


140 DIM P(4,2) 

150 DIM W(10,2) 

160 DIM D(4,10) 

170 DIM R(4,1) 

180 LETT=0 

190 GOSUB 3000 

200 LETT=T+1 

210 INPUT M 

220 INPUT N 

230 CLS 

240 PRINT — "TIRADA ¡Ti "(23M)"; 
Ny” 

250 LETW(T,1) =M 

260 LET W(T,2) =N 

270 GOSUB 1000 

280 GOSUB 1500 

290 FORS=1T04 

300 IF R(S,1k>-1 THEN GOTO 330 

310 NEXT S 

320 GOTO 420 

330 IF T=10 THEN GOTO 470 

340 PRINT— AT  12,22;”RESUMEN” 

350 PRINT AT 13,22;”SI O NO?” 


360 INPUT A$ 

370 1F A$=”SI”' THEN GOTO 390 

380 GOTO 400 

390 GOSUB 2000 

400 CLS 

410 GOTO 200 

420 PAUSE 400 

430 CLS 

440 PRINT 

450 PRINT ”? HAS ENCONTRADO TO- 
DOS LOS ESPIAS EN”;T;'*TIRA- 
DAS” 

460 GOTO 610 

470 PAUSE 400 

480 CLS 

490 PRINT ”'JA,JA,JA. NO ENCON- 
TRASTE TODOS LOS ESPIAS EN 
LAS 10 TIRADAS” 

500 PRINT '*QUIERES SABER DONDE 
ESTAN LOS QUE NO ENCONTRAS- 
EZ 

510 INPUT B$ 

520 CLS 

530 IF B$=”*""NO” THEN GOTO 610 

540 PRINT TAB 8; ESPIAS”;TAB 18; 
"POSICION ” 

550 PRINT TAB 8;'******";:TAB 18; 

560 PRINT 

570 FORH=1T04 

580 1F R(H,1)=-1 THEN GOTO 600 

590 PRINT TAB 10;H;TAB 20;"(;P 


pao 
600 PRINT "QUIERES JUGAR OTRA 
VEZ?” 
630 INPUT C$ 


640 IF C$ =”"SI'”? THEN GOTO 110 

645 CLS 

650 PRINT AT 10,1;”PUES HASTA LA 
VISTA Y A VER SI ESPABILAS” 

655 GOTO 3070 

1000 REM CONSTRUYE LOS EJES DE 
COORDENADAS Y REPRESENTA 
EN ELLOS TODAS LAS TIRADAS 
HECHAS. 

1005 FAST 

1010 FORX=0T0 40STEP 4 

1020 FOR Y =0TO 40 STEP 4 

1030 PLOT X,Y 

1040 NEXT Y 

1050 FOR Z=0T0 40 STEP 4 


1060 PLOT Z,X 

1070 NEXT Z 

1080 NEXT X 

1090 FORU=1TOT 

1100 PRINT AT 21- 2*W(U,2),2*W(U,1); 

1110 NEXTU 

1120 RETURN 

1500 REM DETERMINA EL POSIBLE 
ACIERTO DE LA TIRADA. REPRE- 
SENTA EN EL GRAFICO LOS 
ACIERTOS QUE HA HABIDO HAS- 
TA ESTA TIRADA. IMPRIME, PA- 
RA ESTA TIRADA, LA DISTANCIA 
A CADA ESPIA. 

1505 FAST 

1510 FORK =1T04 

1520 (F R(K,1)<>— 1 THEN LET R(K,1) 
=P(K,1) 

1530 1F. M=P(K,1) AND N=P(K,2) 
THEN LET R(K,1)=-1 

1540 IF R(K,1)=-1 THEN GOTO 1580 

1550 LET D(K,T)=SQR ((ABS (P(K,1)— 
M)**2+ (ABS (P(K,2) - N)**2)0 

1560 PRINT AT 2*K,22;N 7" A ”; INT(D(K, 
T)*100+.5)/100 

1570 GOTO 1590 

1580 PRINT AT 21 - 2*P(K,2),2*P(K,1);” 
sl 

1590 NEXT K 

1595 SLOW 

1600 RETURN 

2000 REM DA UN RESUMEN, PARA CA- 
DA ESPIA, DE LAS DISTANCIAS 
EN TODAS LAS TIRADAS EFEC- 

TUADAS. 

2005 FAST 

2010 PRINT AT 15,22; ESPIA 1” 
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2020 PRINT AT 16,22;'2,3,4?” 
2030 PRINT AT 18,22;""AL ACABAR” 
2040 PRINT AT 19,22;”DALE A 0” 


2060 IF E<>1 AND E<>2 AND E<>3 AND 
E<>4 THEN GOTO 2190 

2070 CLS 

2080 PRINT ¡E 

2090 IF R(E,1)=-1 THEN GOTO 2170 

2100 PRINTTAB 6; TIRADA”;TAB 17;” 
DISTANCIA” 

2110 PRINT TAB 6; ******":TAB 17;” 


RARAS 


2120 PRINT 

2130 FORL=1TOT 

2140 PRINT— TAB > 6;"(¡W(L,1);0,%; 
W(L,2);”")”";TAB 20;INT— (D(E,L)* 
100 +.5)/100 

2150 NEXT L 


2160 GOTO 2050 

2170 PRINT "ESTE YA ESTA MUERTO” 

2180 GOTO 2050 

2185 SLOW 

2190 RETURN 

3000 REM GENERA ALEATORIAMEN- 
TE LAS COORDENADAS DE LOS 4 
ESPIAS: P(1,1) SON LAS ABCISAS 
Y P(1,2) SON LAS ORDENADAS 
DEL ESPIA 1. 

3010 FORJ=1T02 

3020 FOR!|=1T0 4 

3030 LET P(1,J) =INT (11*RND) 

3040 NEXT I 

3050 NEXT y 

3060 RETURN 

3070 PRINT 

4000 SAVE "'ESPIAÉ 

4010 GOTO 1 
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FUEGO 


(Programa num. 14) TIRADA DISTANCIA 
(Autoexplicativo) 
(2,5,5) 4.47 
(5,5,5) 3.32 
E (3,3,3) 3 
HAS DE LOCALIZAR EL INCENDIO QUE (3,6,3) 4.9 
SE HA PRODUCIDO EN UN HOTEL CON (6,3,3) 2.45 
10*10*10 HABITACIONES 
TU TIRADA SERAN 3 NUMEROS: TIRADAS YA REALIZADAS 
M(EL PRIMERO), ES LA DISTANCIA A 10LETQ=0 
LA DERECHA DE LA BASE (1 A 20) 15LETW=0 o 
N(EL SEGUNDO), ES LA DISTANCIA A 20 PRINT AT 1,8, "E 
LA IZQUIERDA DE LA BASE (1 A 10) 31009 ; 
B(EL TERCERO), ES LA DISTANCIA 30 PRINT ''HAS DE LOCALIZAR EL 
POR ENCIMA DE LA BASE (1 A 10) INCENDIO QUE SE HA PRODUCI- 
DO EN UN HOTEL CON 10*10*10 
LA RESPUESTA ES LA DISTANCIA EN HABITACIONES” 
LINEA RECTA DESDE LA HABITACION 50 PRINT "TU TIRADA SERAN 3 NU- 
ELEGIDA HASTA EL FUEGO. SI SE SO- MEROS” 
LICITA, SE FACILITA EL RESUMEN DE 55 PRINT 
TODAS LAS TIRADAS ANTERIORES 60 PRINT '"M(EL PRIMERO), ES LA 


DISTANCIA A LA DERECHA DE 


A 1: (2,5,5 
USRe ) LA BASE (1 A 10)” 


non 65 PRINT ”N(EL SEGUNDO), ES LA 
Z ARUBA aS DISTANCIA A LA IZQUIERDA DE 
naaa mam EMPLADO LA BASE (1A 10)” 
"ETA AAA 70 PRINT ''B(EL TERCERO), ES LA 
"ETT AAAS DISTANCIA POR ENCIMA DE LA 
"TAS BASE (1 A 10)” 
SAA AAAA PEE paa 
80 PRINT "LA RESPUESTA ES LA 
SONO DISTANCIA EN LINEA RECTA 
X=> DESDE LA HABITACION ELEGIDA 
HASTA EL FUEGO. SI SE SOLICI- 
TA, SE FACILITA EL RESUMEN 
DE TODAS LAS TIRADAS AN- 
TERIORES” 
RADA 90 INKEY$="'0” THEN CONT 
SERAN AEB), 100 PAUSE 800 
"EA : DELE 
AUDE BEBE ypLADO 
| RNA 
"EA AAA AAA 
PESTE NN NA 140 DIM P(1,3) 
"AAA AAA 150 DIM W(10,3) 
SAARERECICO 160 DIM D(1,10) 
NENAS " 170 DIMR(1,1 
ns OP I90S edi 
E 190 GOSUB 3000 
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200 LETT=T+1 

205 PRINT AT 4,2; "DAR M” 

210 INPUT M 

211 IF M>10 OR M<1 THEN GOTO 203 

212 PRINT AT 4,20;M 

217 PRINTAT5,2;”DARN” 

220 INPUT N 

221 IF N>10 OR N<1 THEN GOTO 217 

222 PRINT AT 5,20:N 

224 PRINTAT6,2;"DARB” 

225 INPUT B 

226 IF B>10 OR B<t THEN GOTO 224 

227 PRINT AT 6,20;B 

230 CLS 

240 PRINT "TIRADA *¡T¡2:(2M3") >; 
Nica Bn) 

245 PAUSE 80 

250 LET W(T,1)=M 

252 LET W(T,2)=N 

255 LET W(T,3)= B 

270 GOSUB 1000 

290 LETS =1 

300 IF R(S,1)<>-1 THEN GOTO 330 

320 GOTO 420 

330 IF T=10 THEN GOTO 470 

340 PRINT— AT  12,24;””RESUMEN” 

350 PRINT AT 13,24;”S1 0 NO?” 

360 INPUT AS 

370 IF A$="SI'”” THEN GOTO 390 

380 GOTO 400 

390 GOSUB 2000 

400 CLS 

410 GOTO 200 

420 PAUSE 300 

430 CLS 

440 PRINT 

450 PRINT "HAS ENCONTRADO EL 
FUEGO Y HAS SALVADO AL HO- 
TEL EN”;T;”TIRADAS;¡ENHORA- 
BUENA” 

451 PRINT AT 11,5; PUNTUACION”; 
AT 12,5;”ACUMULADA”:AT 13, 
18 A 

452 PRINT AT 15,5; "NUM.PARTIDAS” 
:AT16,18;” A 

453 PRINT AT 9,3;” ¡AT 8,3:1+ 
10*(10-T) 

454 PRINT AT 4,5; y 

455 PRINT AT 5,55;”10 TIRADAS=1 
PUNTO/10 PUNTOS POR CADA 
JUGADA MENOS”' 


456 PRINT AT 7,5;”TU PUNTUACION 
HA SIDO” 

457 PRINT AT 8,0;”DE 

458 LETW=W+T 

459 PRINT— AT 12,18;¡W;AT  15,18;Q 

460 GOTO 610 

470 PAUSE 300 

480 CLS 

490 PRINT ”JA,JA,JJA.NO HAS EN- 
CONTRADO EL FUEGO EN LAS 10 
TIRADAS” 

500 PRINT "QUIERES SABER DONDE 
ESTABA EL FUEG =?” 

510 INPUT B$ 

520 CLS 

530 1F B$='"NO”- THEN GOTO 610 

540 PRINT TAB 18;””POSICION”” 

550 PRINTTAB 18; tr 

560 PRINT 

570 LETH=1 

580 IF R(H,1)=-1 THEN GOTO 610 

590 PRINT— TAB 18 ("¿P(H,D00 7"; 
P(H,2);”,;P(H,3);)”" 

610 PRINT 

620 PRINT AT 18,5; "QUIERES JUGAR 
OTRA VEZ?” 

630 INPUT C$ 

635 LETQ=0Q+1 

640 1F C$="S!I”” THEN GOTO 110 

645 CLS 

650 PRINT AT 10,1; PUES HASTA LA 
VISTA Y A VER SI ESPABILAS” 

655 GOTO 3070 

1000 REM CONSTRUYE LOS EJES DE 
COORDENADAS Y REPRESENTA 
EN ELLOS TODAS LAS TIRADAS 
HECHAS. 

1005 FAST 

1010 FOR X =1 TO 40 STEP 4 

1020 FOR Y =1 TO 40 STEP 4 

1030 PLOT (X + 4), (Y + 4) 

1040 NEXT Y 

1050 FOR Z=1T0O 40 STEP 4 


PUNTOS”” 


1060 PLOT (Z + 4),(X + 4) 

1070 NEXT Z 

1075 PRINT AT 20,15;"X =>*"'¡AT 6,0;Z 
1077 PRINT AT 
1080 NEXT X 

1090 FORU=1TOT 


20,23;”'4 


1100 PRINT AT INT (21 - 2*W(U,2)),2*W 


(U,1);"82"5U 
1110 NEXT U 
1112 GOSUB 1500 
1117 CLS 
1118 FAST 
1119 PRINT — "TIRADA";T;:(03M;”,”; 


NB) 

1120 FORX=1 TO 40 STEP 4 

1130 FOR Y =1 TO 40 STEP 4 

1140 PLOT (X + 4),(Y + 4) 

1150 NEXT Y 

1160 FOR1=1 TO 40STEP 4 

1170 PLOT (I + 4), (X + 4) 

1180 NEXT 1 

1185 PRINT AT 20,15;X=>";¡AT 6,0; 
pr 

1187 PRINT AT 20,23; HACÉ 
18,23;'10 PISOS” 

1190 NEXT X 

1200 FORU=1TOT 

1300 PRINT AT INT (21 - 2*W(U,3$2*W( 


DA";AT 


U, 1); U 
1310 NEXT U 
1315 GOSUB 1500 


1317 CLS 

1320 RETURN 

1500 REM DETERMINA EL POSIBLE 
ACIERTO DE LA TIRADA. REPRE- 
SENTA EN EL GRAFICO LOS 
ACIERTOS QUE HA HABIDO HAS- 
TA ESTA TIRADA. IMPRIME, 
PARA ESTA TIRADA, LA DISTAN- 
CIA DEL DISPARO AL FUEGO. 

1505 FAST 

1510 LETK=1 

1520 1F R(K,1)<>- 1 THEN LET R(K,1) 
=P(K,1) 

1530 IF M =P(K,1) AND M =P(K,2) AND 
8 =P(K,3) THEN LET R(K,1)=-1 

1540 IF R(K,1)=-—1 THEN GOTO 1580 

1550 LET D(K,T) =SQR(WABS(P(K,1) — 
M))*"2 + (ABS(P(K,2) - N))**2) + 
(ABS(P(K,3) — B))) 

1555 PRINT AT 2*K,22;K;"A”;INT_ (D( 
K,T)*100+.5)/100 

1560 1F D(K,T)>=INT (SQR 75) THEN 
PRINT AT 6,23;”FRIO,FRIO” 

1563 IF D(K,T)>INT (SQR 27) AND DIK, 
T)<(SQR 75) THEN PRINT AT 6,23; 
TEMPLADO” 
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1566 IF D(K,T)>INT (SQR 12) AND D(K,T 
K(SQR 27) THEN PRINT AT 6,23; 
""CALIENTE” 

1570 IF D(K,T)>=INT (SQR 3) AND D(K, 
T)<INT (SQR 12) THEN PRINT AT 6, 
23;'”"TEQUEMAS”” 

1572 IF D(K,T)>=INT (SQR 1) AND D(K, 
T)<INT (SQR 3) THEN PRINT AT 6, 
23; "ESTAS" ¡AT 7,23;”"ARDIEN- 
DO” 

1575 PAUSE 1100 

1595 SLOW 

1600 RETURN 

2000 REM DA UN RESUMEN DE LAS 
DISTANCIAS AL FUEGO EN TO- 
DAS LAS TIRADAS EFECTUADAS. 

2005 FAST 

2010 PRINT AT 17,0; "PARA RESUMEN 
TIRADAS, DAR 1” 

2030 PRINT AT 19,0;'"PARA VOLVER A 
TIRAR, DAR 0” 

2070 CLS 

2080 PRINT '"FUEGO””; 

2090 IF R(1,1)=-1 THEN GOTO 2170 

2100 PRINTTAB 6; 'TIRADA”';TAB 17;” 
DISTANCIA” 

2110 PRINTTAB 6; ***** “TAB 17; *- 


RARA ADO 


2120 PRINT 

2130 FORL=1TOT 

2140 PRINT TAB 6; (?;W(L,1);”?,";W(L, 
2); >, "¡W(L,3);"?) ¡TAB 20;INT (D(1 
,L)*100 + .5)/100 

2150 NEXT L 

2170 PRINNT "TIRADAS YA REALIZA- 
DAS” 

2180 GOTO 2050 

2185 SLOW 

2190 RETURN 

3000 REM GENERA ALEATORIAMEN- 
TE LAS COORDENADAS DE LA 
HABITACION DONDE ESTA' EL 
FUEGO:P(1,1) E EL NUM. DE HA- 
BITACIONES HACIA LA DERE- 
CHA Y P(1,2) HACIA LA IZQUIER- 
DA. P(I,3) ES EL NUM. DE LA 
PLANTA. 
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3010 FORJ=1T0 3 

3020 LETI|=1 

3030 LET P(1,J) =1 + INT (9*RND) 
3050 NEXT J 
3060 RETURN 
3070 PRINT 

9000 SAVE "HOT 
9010 GOTO 1 
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*OTHELO” (Programa 15) 
Es un juego muy popular y entretenido que se juega contra el ZX-81. 


En un principio cada jugador tiene 2 fichas dispuestas en diagonal en las casillas centrales 
de un tablero de 8 x 8. 


Cada jugador mueve situando una NUEVA FICHA al extremo de fila, columna o diagonal 
del contrario, pero SOLO en el caso de que una pieza del jugador pudiera realizar tal salto. 
En este caso todas aquellas fichas del contrario sobre las que ha saltado la ficha cambian 
de color. 


Si en este posible lugar tiene ya una pieza suya no puede realizar tal salto. 


Con un solo movimiento pueden colocarse una o 2 nuevas fichas, como es el caso de la 
FICHA que mueve y es origen de dos alineaciones (fila y columna, fila y diagonal, p.e.). 


Al final de cada movimiento el ZX-81 proporciona un balance de fichas en poder de cada 
jugador. Gana aquel que consiga tener más FICHAS de su color al terminar de situar la 
última. 


La estrategia mejor es dominar las 4 esquinas y las filas y columnas límites del tablero. 


Una jugada se introduce mediante (NUMERO DE FILA+LETRA DE COLUMNA). Por 
ejemplo 5B, 3F etc. El ZX-81 indica que le toca a él mover mediante NEW LINE (MUEVO 
YO). 


Este programa ocupa 5 K. 


En caso de no poder mover se debe terminar la partida introduciendo ''99”'. El ordenador 
entonces da lugar a un mensaje que indica el balance final del juego. 


MEE:  SASBoCDEFOB 


_ ___ _ _ _____ A 2 A 

AE ss + +. 2% e. +. . +41 

=ZEB + +44 + +2 +. . Ho 

SES «4. € € + + E3 

A A 
S=TuU 

SI + ++-0O8NE8E +. +. +. E= 
B=ZX 

EB + +. £ 4 +4 +1 +. Ye 

TA? 4 +4 € 4 4 € «€ Ez 
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¡Eos + 

2E + + 

ZÉ + 

d4E + + 
H=Tu 

Si + + 
O=7X 

SE 2 +. 

7H + +. 

5H + + 
Yu TIENES 11 
YO TENSO R 


1 PRINT 

2 FAST 

3 GOTO 700 
100 LETS=0 
105 1F NOT A(P)=0 THEN RETURN 
110 FORI=1T08 
115 LETQ=P 
120 LETK=1 
125 LETZ=N(1) 
130 LETQ=0Q+Z 
135 1F A(Q)=0 THEN GOTO 
140 1F A(Q)=T THEN GOTO 
145 LETK=K+1 
150 GOTO 130 
155 LETS=S+K-1 
160 IF F=0 THEN GOTO 185 
165 FORK =1 TO K 
170 LET A(P+K*N(1)) =T 
175 NEXT K 
180 LET A(P)=T 
185 NEXT | 
190 RETURN 
200 LETSH=0 
205 LETSC=0 
206 PRINT AT 0,0; THE 
210 PRINT 
215 PRINTATO9'"ABCDEF GH” 


AT  0,20;"%3 


185 
155 


= a O E A 

TAREAS 
2. + +. +? + 12 
+ +. +15 + + $2 
+? xD >E o e + 3 
3S08N +. +. +. Ea 
ENEaAE «Ss 
¿0H + 0 + Fe 
+¿+¿H . + 0 $7 
++ +. + + +45 
po E A 


216 PRINT_AT 1,9;” (15) 


220 FORR=1T08 

225 PRINT 

230 PRINTTAB6;R;” 1”; 

235 FORV=2T0O16STEP 2 

240 LETX=A(1+R+V*5) 

245 IF X=C THEN PRINT 0”; 

255 IFX=0THEN PRINT +”; 

260 IFX=C THEN LET SC =SC+ 1 

265 1F X =H THEN LET SH =SH +1 

270 NEXT V 

272 PRINTTAB 25; 1 "5R; 

275 PRINT 

280 NEXT R 

282 PRINTAT 0,7; ””; 

285 PRINT 

287 PRINT AT 10,0; £=TU” 

288 PRINT AT 12,0; 0 =ZX” 

290 PRINT AT 20,0;"TU TIENES'”;SH; 
AT 21,0; YO TENGO””;SC; 

295 RETURN 

300 LETM=0 

305 LETF=0 

310 LETT=C 

315 FORR=1T08 


320 FORV=2T0O 16 STEP 2 

325 LETP=R+5*V+1 

330 GOSUB 100 

335 IF S<M THEN GOTO 355 

340 IF S+INT (RND*2)-1=M THEN 
GOTO 355 

345 LETM=S 

350 LET X =P 

355 NEXT V 

360 NEXT R 

365 IF M =0 THEN GOTO 410 

370 LETF=1 

375 LETP=X 

380 GOSUB 100 

400 LET X =X- 1 

402 LET V =INT (X/10) 

405 PRINT AT 21,15;"YO MUEVO”; 
X -— 10*V;CHR$ (V + 37) 

4101F M=0 THEN PRINT "YO NO 
PUEDO MOVER” 

415 GOSUB 200 

420 IFH$=””' AND M=0 THEN GOTO 
100 

425 IF SC+SH=64 THEN GOTO L00n 

500 PRINT AT 20,15;”3 

505 INPUT H$ 

510 1F H$="*”* THEN GOTO 585 

515 1F H$="”99” THEN GOTO 1000 

520 LET R =CODE (H$) — 

525 1F A<i OR A>8 THEN GOTO 505 

530 LET A$ = H$(2 TO) 

535 IFAS=""” THEN ETE 505 

540 LET V =CODE (A$) — 

545 IF Ve2 OR V MSN GOTO 505 

550 LETP=R+10*V +1 

555 LETT =H 

560 LETF =0 

565 GOSUB 100 

570 1FS=0 THEN GOTO 505 

575 LETF=1 
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580 GOSUB 100 
585 CLS 
590 GOSUB 200 
595 IF SC + SH =64 THEN GOTO 1000 
600 PRINT AT 21,13; "NEWEINE” 
(MUEVO YO)” 
605 INPUT AS$ 
610 IF A$="99” THEN GOTO 1000 
615 CLS 
620 GOTO 300 
700 DIM A(150) 
705 DIM N(8) 
710 LET N(8)=11 
715 LETN(1)=10 
720 LET N(2)=9 
725 LETN(3)=1 
730 LET N(4) = 
735 LET N(5) = 
740 LET N(6) =- EN 
745 LET N(7)= 
750 LETC=-1 
755LETH= 1 
760 LET A(56) =H 
765 LET A(55) = 
770 LET A(45) =H 
775 LET A(46) = 
780 CLS 
785 GOSUB 200 
790 GOTO 500 
1000 IF SC>SH THEN PRINT *'A 


1005 IF SC<SH THEN PRINT "E 
ES a 
1010 le 


1020 PRINT AT 20,0; AN 
9970 STOP 

9990 SAVE "*OTHELL£3” 
9999 GOTO 1 
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”CODIGO” SECRETO (Programa 16) 


A.- En un MASTER-MIND de 6 CIFRAS (obtenidas aleatoriamente del O al 9) con posi- 
bilidad para el ZX-81 de repetir las cifras generadas más de una vez. 


Las dificultades del juego son 2: a) Se ha de acertar en 10 intentos. b) Las contestaciones a 
cifras repetidas pueden ser engañosas. c) Las 6 cifras que se introducen no se ven hasta 
después de haber metido todas ellas. 

A cada cifra acertada en posición el programa contesta con un rectángulo NEGRO. A cada 
cifra acertada pero que no está en posición el programa contesta con un rectángulo GRIS. 
Solo pueden verse 6 respuestas anteriores simultáneamente. 

De esta forma, si introducimos una cifra no repetida y en la cadena original si lo está, se 
produce entonces una ambigúedad de respuesta, dando lugar a una respuesta doble que 
puede dar lugar a engaño. De esta manera el juego puede dificultarse bastante. 

Un detalle original de este programa en su AUTOSCROLLING (o subida de las lineas ha- 
cia la parte superior de la pantalla). 


Este programa ocupa 2 K. 


B.- Una segunda versión de este juego, más sencilla,sale al paso de las dificultades de la 
anterior. 

Aquí los intentos son 12, las cifras NO se repiten y las cifras introducidas por el jugador se 
ven de una en una y tal como se meten. Además se ha suprimido una linea en blanco entre 
dos contestaciones, con lo que se pueden ver en pantalla las 10 respuestas anteriores (como 
máximo), facilitando la labor de deducción. 


Esta versión ocupa también 2 K de memoria. 
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PROGRAMA NUM. 16 - A 


CODIGO SECRETO (6 CIFRAS 1-09) 
DAR LAS CIFRAS DE UNA EN UNA SE 
HA DE ACERTAR EN 10 INTENTOS LAS 
CIFRAS PUEDEN REPETIRSE 


2-6 
3-2 
4-0 
5-1 
6-9 
7-6 
8-4 


| Jajaja! 
co 
000 
1.00 
[ Muja] 


s0o000 


bu -““00N y 
NN bBOO0o 0 
£h000000 
NO0N0O0Oo y 
hhhhhho0s0 


£n80900D 


5 PRINT AT 4,0;”CODIGO SECRE- 
TO (6 CIFRAS 1 - 9)” 
6 PRINT AT 5,0;” 

10 LETA=INT(RND*10) 

20 LETB=INT(RND*10) 

30 LET C=INT (RND*10) 

40 LETD=INT(RND*10) 

43 LET E=INT(RND*10) 

46 LETF =INT(AND*10) 

60 PRINT AT 7,0;”"DAR LAS ClI- 
FRAS DEUNA EN UNA” 

65 PRINT AT 9,0;'SE HA DE ACER- 
TAR EN 10 INTENTOS” 

67 PRINT AT 11,0; LAS CIFRAS PUE- 
DEN REPETIRSE” 

70 FORN =1 TO 10 

80 SCROLL 

90 INPUT J 

110 INPUT K 

140 INPUT L 

150 INPUT M 

160 INPUT P 

170 INPUT OQ 

180PRINTIN A 
Mii Po Qe 

190 IFJ=A THEN PRINT mu > 

200 IF K=B THEN PRINT "mm >; 

210 IFL=CTHENPRINT ” ga 0; 

220 IFM=D THEN PRINT a >; 

225 IFP=ETHENPRINT ma >”; 

227 |FQ=F THEN PRINT "ME >; 

230 IF J<>A ANDJ=BORJ=CORJ= 
DOR.J=EORJ=F THEN PRINT ” 


(14) * 


240 IF K<>B ANDK=A ORK=CORK 


=D OR K=E OR K=F THEN 
PRINT? A 
250 IF L<>C ANDL=AORL=BORL 
=DORL=EORL=F THEN PRINT 


260 IF M<>D AND M=A OR M=B OR 
M=C OR M=E OR M=F THEN 
PRINT ? es 

265 IF P<>E ANDP=AORP=BORP 
=C OR P=D OR P=F THEN 
PRINT" E 

267 IFQ<F ANDQ=A ORQ=BORQ 
=C OR Q=D OR Q=E THEN 
PRINT? > 

270 SCROLL 

275 SCROLL 

280 IFA =J ANDB=KANDC=LAND 
D=M THEN GOTO 330 

300 NEXT N 

310 PRINT AT 21,0;”ES'”¡A;B;C;D;E; 
F 

320 GOTO 340 

330 PRINT AT 21,20;”'] 

340 INPUT A$ 

350 CLS 

360 GOTO 1 

9000 SAVE **CODIGE*” 

9010 GOTO 1 


PROGRAMA 16-B 


1102204100 

24 88 4 8 4 0 
33.590 4 9 3 gado 
40 8 39 1 6 000 

57 8 9 3 7 0 9000 

60 58 9 3 2 MM 

74 7 19.36 Me 0000 
386 17 9 3 4 WAR 
11000 1 1 2280000 
24 9901 4 BOoD0 
33350091 Mm00 

41 7 8096 MMmU 
5157054 88000 
61 46 000 5 MEBODO 
7184025. BORO 
81 2 4 0.8 5 BBROCdO 
9182045mMB8n0n 


5 PRINT AT 20,0;*%3 


10 LETA =INT(RND*10) 

20 LET B=INT (RND*10) 

30 LET C=INT (RND*10) 

40 LET D=INT(RND*10) 

43 LET E =INT(RND*10) 

46 LETF=INT (RND*10) 

50 IFA=BORA=CORA=DORB= 
CORB=DORC=D THEN GOTO 1 

55 |FA=EORA=FORB=EORB=F 
ORC=EORC=FORD=EORD= 
FORE=FTHENGOTO 1 

70 FORN=1T0 12 

80 SCROLL 

90 INPUT J 

100 PRINTN;P-P3430 >; 

110 INPUT K 

120 PRINT K;” >; 

140 INPUT L 

145 PRINT L;” >; 

150 INPUT M 

155 INPUT M;” >; 

160 INPUT P 
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165 PRINTP;” >; 
170 INPUTO 

180 PRINT OQ; *; 
190 1F J=A THEN 
200 IF K=B THEN 
210I1F L=C THEN 
2201F M=D THEN 
2251F P=E THEN PRINT "Ma >>; 
227 1F Q=F THEN PRINT "MN >, 
230 IF J<>A ANDJ=BORJ=CORJ= 
DORJ=EORJ=F THEN PRINT ” 


PRINT  ” pe 
PRINT >” , 
PRINT ” ; 
PRINT ? ; 


240 IF K<>B AND K=A OR K=C OR 
K=D OR K=E OR K=F THEN 
PRINT ” ce 

250 IFL<>CANDL=AORL=BORL= 
DORL=EORL=F THEN PRINT ” 

260 IF M<>D AND M=A OR M=B OR 
M=C OR M=E OR M=F THEN 
PRINT Ces; 

265 IFP<>»EANDP=AORP=BORP= 
CORP=DORP=FTHENPRINT ” 

267 IF Q<>F AND Q=A OR Q=B OR 
Q=C OR Q=D OR Q=E THEN 
PRINT ”” 

270 SCROLL 

280 IFA=J ANDB=KANDC=LAND 
D=M THEN GOTO 330 

300 NEXT N 

310 PRINT AT 21,0;”ES”;A;B;C;D;E;F 

320 GOTO 340 

330 SCROLL 

332 PRINT AT 21,20;” 

340 INPUT A$ 

350 CLS 

360 GOTO 1 


9999 GOTO 1 
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26 PRINT "EN ESTE JUEGO HAY 
DOS OPONENTES:TU Y EL ZX-81. 


PROGRAMA NUM. 17  ”HEXPAWN”” 


2114 


28 PRINT 
EN ESTE JUEGO HAY DOS OPONEN- 30 T "CADA UNO DISPONE DE 
TES: TU Y EL ZX-81. j PEONES. LOS TUYOS SON 
CADA UNO DISPONE DE PEO- H Y LOS DEL ZX-81 DH.” 
NES. LOS TUYOS SON Hi Y LOS DEL ZX- 32 PRINT 
34 PRINT "LOS PEONES MUEVEN 
COMO EN EL AJEDREZ. AVAN- 


LOS PEONES MUEVEN COMO EN El s 
AJEDREZ. AVANZAN RECTOS A UN ZAN RECTOS A UN ESPACIO VA- 
ESPACIO VACIO O BIEN COMEN EN CIO O BIEN COMEN EN DIAGO- 
DIAGONAL UN PEON ENEMIGO. NAL UN PEON ENEMIGO.” 
PIERDEN AQUEL QUE NO PUEDE MO- 36 PRINT 
VER NINGUN PEON. 38 PRINT *”"PIERDE AQUEL QUE NO 
CADA MOVIMIENTO SE INTRODUCE PUEDE MOVER NINGUN PEON” 
MEDIANTE DOS CIFRAS SEGUIDAS: 40 PRINT 
XY.X=ORIGEN DEL MOVIMIENTO. 42 PRINT "CADA MOVIMIENTO SE 
Y =NUM.CUADRO DONDE SE DESEA INTRODUCE MEDIANTE DOS ClI- 
IR. FRAS SEGUIDAS: XY X=0ORIGEN 
DE MOVIMIENTO. Y =NUM. CUA- 
DRO DONDE SE DESEA IR.” 
44 PAUSE 600 


QUIERES EMPEZAR TU? (SI/NO) 


46 CLS 
1.2 .3C CC 50 PRINT "QUIERES EMPEZAR TU? 
4 5 68 BB Y (SI/NO)””; 
78 98 BE OB 52 INPUT Q$ 
10 11 12H HH 54 PRINT Q$ 
56 PAUSE 50 
60 CLS 


70 REM IRA 200 PARA MANTENER 
LA DESTREZA 

80 FAST 

100 DIM P(1000) 


12. 3MwMmm-<cC 110 DIM B(1000) 
4 5 6H Co UE 120 DIM M(5) 
78 9H BM NW 130 LETH =1 
10 11 12M BR  H 140 LETC=-1 
200 REM POSICION DE SALIDA 


DA NEWLINE PARA QUE MUEVA YO 210 FORK =1T03 
220 LET B(K) =C 
230 LET B(K+3)=0 


240 LET B(K+6)=0 


5 PRINT (256"PEEK 16405 + PEEK 
16404-16384)/1024 


7 PAUSE 200 245 LET B(K +9) =H 
8 CLS 250 NEXT K 
10LETEE=0 260 GOSUB 1000 
12 LETFF=0 270 LET PN =1 
14 LETDD=0 280 1F Q$=”"NO” THEN GOTO 400 


20 PRINT AT  0,8;”k 
22 PRINT 
24 PRINT 


300 REM MUEVE H 
305 PRINT *"TU MUEVES: DESDE(X)/ 
HASTA(Y) =XY”” 
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310 INPUT 1 

320 LET F =INT (1/10) 

330 LETT=1-F*10 

340 LETTYP=H 

350 GOSUB 2000 

360 IF ERR>0 THEN GOTO 310 

370 LET B(F)=0 

380 LET B(T)=H 

390 GOSUB 1000 

400 REM MUEVE C 

410 LETTYP=C 

420 GOSUB 3000 

430 IF MOVE=0 THEN GOTO 600 

440 PRINT DA NEWLINE PARA QUE 
MUEVA YO” 

450 INPUT 15 

460 GOSUB 4000 

470 LET B(F)=0 

480 LET B(T)=C 

490 GOSUB 1000 

500 REM GANO C? 

510 LETTYP=H 

520 GOSUB 3000 


530 IF MOVE>0 THEN GOTO 300 : 


540 LETE$=”YO GANO” . 

541 PRINT AT 13,15; "YO GANO” 

542 PRINT AT 14,15;” 2.” 

543 IF E$='"'YO GANO” THEN LET EE 
=EE+1 

545 GOSUB 9000 

550 GOTO 620 

600 GOSUB 5000 

607 LET D$=”TU HAS GANADO” 

610 PRINT AT 13,15;”"TU HAS GANA- 
Do” 

612 PRINTAT 14,15; —QL_* 

613 1IFD$=”TUHAS GANADO” THEN 
LETDD=DD+1 

615 GOSUB 9000 

620 PRINT 

630 PRINT AT 21,0;'”DA NEWLINE PA- 
RA JUGAR OTRA VEZ” 

640 INPUT I1$ 

650 IF 1$="''”'” THEN GOTO 48 

660 STOP 

1000 REM DISPLAY 

1010 CLS 

1012 PRINT AT 0,8; 

1014 PRINT 

1016 PRINT 

1020 FORK=0703 


Mn 


1030 LETX =3*K+1 

1040 IF K<=2 THEN PRINT TAB 4;X;” *” 
¡X+ 1; ;X+2;¡TAB 14; 

1045 IFK=3THEN PRINT TAB 3;X;” '; 
X +1; "¡X+2¡TAB 14; 

1050 FOR Y=0TO 2 

1060 LET Z =B(X + Y). 

1070 1F Z=0 THEN PRINT "MW ES 

1080 1f Z=H THEN PRINT ”H da 

1090 1IF Z=C THEN PRINT ”C peo 

1100 NEXT Y 

1110 PRINT 

1120 PRINT 

1130 NEXT K 

1140 PRINT 

1150 RETURN 

2000 REM JAQUE 

2010 LETERR=1 

2020 IF F>12 OR T>12 OR T<1 OR T<1 
THEN RETURN 

2030 I1F B(T)=TYP THEN RETURN 

2040 IF NOT (B(F)=TYP) THEN RE- 
TURN 

2050 IF (INT((F — 1)/3) - INT ((T — 1)/3)< 
<TYP THEN RETURN 

2060 LETA=ABS(F-—T) 

2070 IF A=3 AND B(T)=0 THEN GOTO 
2100 

2080 IF (A=2 OR A=4) AND B(T)=-T 
YP THEN GOTO 2100 

2090 RETURN 

2100 LETERR=0 

2110 RETURN 

3000 REM MOVIMIENTOS POSIBLES 

3010 LET MOVE =0 

3020 FORF =1T0 12 

3030 IF NOT (B(F)=TYP) THEN GOTO 
3100 

3040 FORT =1T0 12 

3050 GOSUB 2000 

3060 IF ERR>0 THEN GOTO 3090 

3070 LET M(MOVE + 1) =T+10*F 

3080 LET MOVE =MOVE +1 

3090 NEXT T 

3100 NEXT F 

3110 RETURN 

4000 REM TOMANDO POSICION EN P() 

4010 LETPOS=0 

4020 FORK =1T0 12 

4030 LETPOS =B(K)+1+3"POS 

4040 NEXT K 


4060 FOR K =1 TO 1000 

4070 LET PN =K 

4080 IF P(PN)=0 THEN GOTO 44007$ 
IF * ¡IF P(PN)=POS THEN GOTO 
4200 

4095 NEXT K 

4200 REM MACHACALO 

4210 FORK=1T0 10 

4220 IF P(PN + K)>-— 1 THEN GOTO 4240 

4230 NEXT K 

4240 IFK =1>=GOTO 4300 

4250 LET PN=PN+INT ((K-1)*RND) 
+1 

4260 LET F =INT (- P(PN)/10) 

4270 LETT =-—P(PN)-10*F 

4280 LET PL =PN 

4290 RETURN 

4300 REM PERDIENDO POSICIONES 

4310 GOSUB 5000 

4320 LET PL =100 

4330 LET MOVE=INT (MOVE*RND) 

4340 LET F=INT  (M(MOVE + 1)/10) 

4350 LET T=M(MOVE + 1)- 10*F 

4360 RETURN 

4400 REM MANTENIENDO NUEVAS 
POSICIONES Y MOVIMIENTOS 

4410 LET P(PN) =POS 

4420 FORK =1 TO MOVE 

4430 LET P(PN + K) = —- M(K) 

4440 NEXT K 

4450 LET PN=PN=+INT  (1+MOVE* 
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RND) 

4460 GOTO 4260 

5000 REM ELIMINANDO MOVIMIEN- 
TOS INEFICACES 

5010 1F PL=100 THEN GOTO 5050 

5020 FOR A=PL TO 99 

5030 LET P(A)-P(A + 1) 

5040 NEXT A 

5050 LET P(100) =0 

5060 RETURN 

9000 PRINT AT 12,0;”BA EN 

9010 LETEF=FF+1 

9012 1F FF=10 THEN GOSUB 9500 

9015 PRINT AT 14,0; PARTIDAS="'; 


FF 

9016 PRINT AT 15,10; 42>; 

9100 PRINT AT 16,0; JUGADOR=”'; 
DD; 


9120 PRINT AT 17,10; Ll; 

9200 PRINT— AT  18,0;”ZX-81="'¡EE; 

9210 PRINT AT O 

9400 RETURN 

9500 IF DD>EE THEN PRINT AT 16,15; 
"HR A 2 

9600 IF EE>DD T 


HEN PRINT AT 18,15; 

ER: NNXS; 

9700 IF DD=EE THEN PRINT AT 17,15; 
"HEMOS EMPATADO”; 

9800 RETURN 

9990 SAVE "HEXPAWN:” 

9999 GOTO 1 
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* TORRES” DE HANOI (Programas 18-A y 18-B) 


Todos los libros sitúan las TORRES DE HANOI como una costumbre ancestral, desarrolla- 
da por monjes (budistas, egipcios, etc) según la cual dichos monjes debían trasladar varios 
discos desde una primera fila a otra tercera, teniendo como limitación el no poder situar 
NUNCA un disco más grande sobre otro más pequeño y como ayuda una posible fila in- 
termedia de discos. 


Este programa se presenta en 2 versiones: 


- NUMERICO. El número máximo de discos es de 7, los discos se representan por nú- 
meros (1 menor, 7 mayor) y las filas por 3 hileras de rayas (-). Se contabiliza el número de 
movimientos realizado para la puntuación. 


El programa pide al jugador el nivel '"desde”* hasta *'donde”” quiere mover. Si se quebran- 
ta la regla de no mover un disco sobre otro menor, se pierde (el programa se para). 


- Mediante DIBUJO. El funcionamiento puede ser automático, realizado por el ordenador 
(francamente espectacular) o manual. 

Se pueden elegir 8 discos como máximo. 

Aún cuando se contabiliza el número de movimientos, también indica el ZX-81 el número 
minimo de movimientos, estableciendo una PUNTUACION en función de la relación entre 
ambas cifras. 


Este programa ocupa 5 K. 


242 


PROGRAMA NUM. 18-A 


MOVIMIENTO 68 


DE NIVEL 


1 rem torres 

10 DIM A$(3,8) 

20 DIM A(3) 

30 LETT=0 

40 LET AS$(1) = 7654321 — ” 

50 LETAS(2)="--—--—---- ds 

60 LET 8$(3) = A$(2) 

70 LET A(1)=7 

75 PRINT AT 0,4;”” 
NO1” 

80 PRINT AT 8,0;""MOVIMIENTO””;T 

85 PRINTAT 9,10; "LL 

90 PRINT 

100 FORA=1T03 

110 PRINT AS(A) 

120 PRINT 

130 NEXT A 

140 1F  A$(3)='"76543 21-”” THEN 
GOTO 290 

150 PRINT AT 18,0;'"DE NIVEL?”” 

155 PRINT AT 19,9; 01)” 

160 INPUTA 

170 PRINT AT 18,9;A 

180 PRINT AT 20,0;'?A NIVEL”? 

185 PRINT AT 21,9; (0” 

190 INPUT B 

195 PRINT AT 20,9;B 

200 LETT=T+1 

210 CLS 

220 LET A(B) =A(B)+1 

230 LET A$(B,A(B)) =AS(A,A(A)) 

240 LETAS(A,A(A))=”-” 

250 LET A(A)=A(A) -1 

260 IF A(B)<2 THEN GOTO 80 

270 IF A$(B,A(B))>A$(B,A(B)-— 1) 
THEN GOTO 350 

280 GOTO 80 

290 PRINT 

300 PRINT AT 16,15;'”'LO HAS CONSE- 
GUIDO” 

305 PRINT AT 18,15;"EN””;T;'"MOVI- 


MIENTOS” 
330 PAUSE 33000 
340 RUN 
350 PRINT 
370 PRINT AT 20,15;'"HAS PERDIDO”” 
380 PAUSE 200 
385 CLS 
390 GOTO 330 
9990 SAVE TORRES?” 
9999 GOTO 1 


PROGRAMA NUM. 18-B 


NUM. DE DISCOS = 
NM, MOVIMIENTOS 
NUM. HINIMG = 233 


GUIERES QUE EL 2X-51 RERLICE 1503 
MOUIMIENTOS 7? BIG oNe 


' 
yo” 


NUM. DE DIStOs = 3% 
NUM. MOUIMIEMTOS = 2% 
NUM. MINIMO = 23= 


NUM. DE DBISCOS = 3 
NUM. MOVIMIENTOS = 25S 
NUM. MINIMO = 255 


Ss a 2 MESS 
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NUM. DE MOUIMIENTOS = 255 
HUM. MINIMO DE MOS. 
PUNTUACION 


A) 
O] 
á 


NUM. DE DIS5Ccos Ss 
NUM. MOUIMIENTOS a 
NUM. MINIMA = 31 


QUIERES QUE EL ZX-31 REDMLICE 105 
HOUVIMIENTOS 7? BIoO0No 


" 


MOV. DESDE TORRE 1 A TORRE 3 


NUM, DE D1IS520S5 = % 
NUM. MOVIMIENTOS = 33 
NUM. MIMIMO = 31 


EN MB => MADE 


RUNTUGC TONE 


245 


MUM. DE MOGIMIENTOS = 33 


NUM. MINIMO E Mou, 


PUNTUACION 


60 GOSUB 2000 

70 FORI=0TO7 

75 PRINT AT 1,7;” 
TAB 27;” ; 

80 PRINT_AT 8,3+ 1; "¡AT 8,31-1; 


”, TAB 17;' 


85 NEXT | 
86 PRINT AT 10,3;” 


90 PRINT AT 8,7;1;TAB 17;2;TAB 27;3 

95 PRINT AT 9,9'"TORRES DE HA- 
NO!” 

100 REM INICIALIZACION 

105 PRINT AT 14,0;'"NUM. DE DIS- 
COS = 

110 PRINT AT 14,20;'*2” 

111 PRINT AT 14,20; 2” 

115 LETC=CODE INKEYS$ 

116 |F C<29 OR C>36 THEN GOTO 110 

117 LETN=VAL(CHR$C) 

118 PRINT AT 14,20;N 

119 LETNN =0 

120 PRINT AT 16,0;”NUM. MOVI- 
MIENTOS =”'¡NN 

121 PRINT. AT  18,0;”NUM.MINIMO 
="(2%N)=1 

140 DIM N(3) 

145 DIM D(N,3) 

150 LET Y =1 

155 FORI=1TON 

160 LET N(Y) =1 

165 LET D(N(Y), Y) =N + 1-1 

170 GOSUB 400 

180 NEXT | 


y 
2) 
pl 


185 GOSUB 600 

195 IF CC =56 THEN GOTO 700 

200 REM JUGANDO 

205 PRINT AT 12,0;"'MOV. DESDE TO- 
RRE A TORRE 

210 PRINT AT 12,17; 2?” 

211 PRINTAT 12,17; 2” 

214 LETC=CODE INKEYS$ 

215 IF C<29 OR C>31 THEN GOTO 210 

216 LETX=VAL(CHR$C) 

220 1F N(X)>0 THEN GOTO 230 

225 PRINT AT 13,0;”LA TORRE”';X;” 
ESTA VACIA 

226 GOTO 210 

230 PRINT AT 12,17;X 

231 PRINT AT 13,0; 

235 PRINT AT 12,27;''?” 

236 PRINT AT 12,27; 3 

240 LETC=CODE INKEY$ 

242 IF C<29 OR C>31 THEN GOTO 235 

245 LET Y =VAL(CHR$C) 

250 IF Y =X THEN GOTO 235 

255 PRINT AT 12,27; Y 

257 IF N(Y) =0 THEN GOTO 271 

2601F — D(N(X),X)<D(N(Y),Y) THEN 
GOTO 271 

265 PRINT AT 20,0;""MOVIMIENTO NO 
VALIDO, INTENTALO OTRA VEZ” 

267 PAUSE 100 

268 PRINT AT 20,0;”” 

270 GOTO 200 AS 

271 GOSUB 300 

275 IF N(3)<N THEN GOTO 200 

280 GOSUB 383 

285 GOTO 2 

300 REM ELECCION 

305 GOSUB 500 
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310 LETN(Y) =N(Y)+1 

315 LET D(N(Y),Y) = D(N(X),X) 

320 GOSUB 400 

325 LET D(N(X),X) =0 

330 LET N(X) =N(X) - 1 

380 LETNN=NN +1 

381 PRINT AT 16,20;NN 

382 RETURN 

385 GOSUB 1000 

387 PRINT AT 21,0;”PARA COMEN- 
ZAROTRA VEZDAN/L” 

390 LET C=CODE INKEY$ 

395 IF C=118 THEN GOTO 397 

396 GOTO 390 

397 GOTO 2 

400 REM DIBUJO 

405 LET D=DI(N(Y),Y) 

410 LETH=20*Y-6 

412 LET V=27+2*N(Y) 

420 FORJ=1TOD 

425 PLOTH+1+J,V 

426 PLOT H-J,V 

440 NEXT J 

480 RETURN 

500 REM BORRADO 

505 LET D =D(N(X),X) 

510 LETH=20*X-6 

512 LETV=27+2*N(X) 

520 FORJ=DTO1STEP-1 

525 UNPLOT H + 1+J,V 

526 UNPLOT H - J,V 

540 NEXT J 

580 RETURN 

600 REM EL ZX-81 JUEGA 

605 PRINT AT 20,0; "QUIERES QUE EL 
ZX-81 REALICE LOS MOVIMIEN- 
TOS?” 

610 PRINT AT 21,15;”"S1 O NO” 

611 PRINT AT 21,15;'”81 0 NO” 

615 LETCC=CODE INKEY$ 

620 IF CC =56 OR CC=51 THEN GOTO 
630 

625 GOTO 610 

630 FOR V=20T0 21 

635 FORC=0T0 31 

640 PRINT AT V,C;” ” 

645 NEXT C 

650 NEXT V 

655 LETC=0 

695 RETURN 

700 REM ZX-81 MUEVE 


1050 PRINT AT 4,0; P3 EN: 
1100 PRINT AT 8,0;”"NUM. DE MOVI- 


703 LETNN =0 

705 1IFN=1O0ORN=30RN=50RN=7 
THEN GOTO 800 

710 REM NIVELANDO N 

715 LETP=1 

720 LETQ =2 

725 GOSUB 900 

730 LETP =1 

735 LETQ=3 

740 GOSUB 900 

745 LETP=2 

750 LETQ=3 

755 GOSUB 900 

760 IF N(3) =N THEN GOTO 385 

780 GOTO 715 

800 REM N IMPAR 

805 LETP =1 

810 LETQ=3 

815 GOSUB 900 

820 IF N(3) =N THEN GOTO 385 

825 LETP =1 

830 LETQ =2 

835 GOSUB 900 

840 LETP=3 

845 LETQ =2 

850 GOSUB 900 

855 GOTO 805 

900 REMPYQ 

905 LETX =P 

910 LETY=Q 

915 IF N(P)=0THENLETX=0 

916 1F N(P)=0 OR N(Q)=0 THEN 
GOTO 925 

920 IF D(N(P),P)>D(N(Q),Q) THEN LET 
x=0Q 

925 IFX=QTHENLET Y =P 

930 GOSUB 300 

935 RETURN 


1000. REM PUNTUACION 
1005 PRINT AT 21, 0; RE 


FERMI 


1010 PAUSE 400 
1020 CLS 
1030 PRINT AT 0,5;'* 


Nor? 


MIENTOS =”'¡NN 


1110 PRiNT AT 10,0; "NUM. MINIMO 


DE MOV. ="';(2**N)-1 


1115LET AA=(2**N)-1-INT — (NN/ 


(2**N)) 


1120 PRINT AT  12,0;””PUNTUACION 


=”"¡AA 
1130 PAUSE 300 
1140 CLS 
1150 RETURN 
2000 REM BUDA 
2010 FORI=8TO9 
2020 PRINT AT 1,0; 
2030 NEXT 1 
2040 PRINT AT 10,0; 
2050 PRINT AT 7,0;” 
2060 PRINT AT 6,0; > 
2070 PRINT AT 5,0; >> 
2080 PRINT AT 4,0; ” 
2090 PRINT AT 3,0;” 
2095 PRINT AT 2,0; 
2100 RETURN 
9970 STOP 
9980 PRINT (256*PEEK 
16404 — 16389)/1024 
9982 PAUSE 200 
9984 CLS 
9986 GOTO 1 
9990 SAVE TORRES” 
9999 GOTO 1 


16405 + PEEK 
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JUEGO DE LOS *”"BARCOS” (Programa núm. 19) 
EXPOSICION 


Dos escuadras de barcos se preparan para una batalla. 
Cada una de ellas está compuesta por: 


PORTAVIONES (5 CUADROS) 
CRUCERO (3 CUADROS) 
DESTRUCTOR A (2 CUADROS) 

B (2 CUADROS) 


y mandada por un Almirante (una flota está dirigida por el JUGADOR y otra por el ZX-81). 


Las flotas se mueven cada una en un TABLERO (TU/ZX-81) de 10x 10 cuadrados, cuya nu- 
meración (1-10) parte del ángulo inferior izquierdo. Un cuadrado se define mediante 2 
coordenadas: la primera es la:horizantal y la segunda 18 vertical. El objetivo del juego es 
HUNDIR LA FLOTA contraria. 


Como NORMA, los BARCOS propios (introducidos por el jugador) pueden situarse a vo- 
luntad dentro del tablero, pudiendo ser horizontales, verticales o diagonales, pero SIEM- 
PRE estando situados a una distancia IGUAL o MAYOR DE UN CUADRO de otro cual- 
quier barco de su flota. (Esta NORMA no es de cumplimiento obligado para el desarrollo 
normal del juego). 


EL JUEGO 


Una vez cargado el JUEGO (0/0) y RUN, aparecera en pantalla unas normas generales con- 
cisas, seguidas de un mensaje del ZX-81 en el que pide un tiempo para generar los Table- 
ros y sus propios barcos. (El ZX-81 guarda una distancia de 2 cuadros entre barco y barco 
propios como minimo). 


A continuación aparece un mensaje acerca de la disposición de los barcos del JUGADOR 
y luego una invitación a éste para que los genere. 


Primeramente aparece la palabra PORTAVIONES, debiéndose introducir 5 pares de núme- 
ros (mayores que Oe inferiores a 11). 


Cada vez que se introducen las coordenadas de un cuadro aparece un 5 en dichas coordena- 
das del TABLERO: TU. 


La misma operación sucede con el CRUCERO(aparecen 3), y los DESTRUCTORES (A y B). 
En total se han de introducir las coordenadas de 12 cuadros. 


Cuando se han terminado de dar todas las coordenadas aparece la pregunta ''¿Estás con- 
forme con estas coordenadas? (S/N). En caso de no cumplir las normas de situación antes 
descritas o situación no deseada de los barcos se puede responder ''N”” y volver a introdu- 
cir las coordenadas de los barcos. 


La situación correcta de los barcos del JUGADOR no es IMPRESCINDIBLE para jugar, 
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pues el ZX-81 realiza sus disparos y gana o pierde en función de los CUADROS que acier- 
te sobre los 12 posibles y no de la posición relativa de esos cuadros dentro del tablero. 


A continuación aparece en pantalla una invitación a comenzar la partida ¿Quieres empe- 
zar tú? (S/N). Si se contesta ''SI'* a continuación aparece '"SALVA 1 (JUGADOR)” y unos 
segundos después ''TIENES 5 disparos””. En caso de contestar '"NO” se genera la '*SAL- 
VA 1 (ZX-81)” y "TENGO 5 disparos”. 


En caso de querer conocer dónde tiene el ZX-81 sus barcos se ha de introducir entonces la 
palabra clave ''BARCOS” con lo que aparecen los barcos del ZX-81 y el mensaje *"' DONDE 
ESTAN TUS BARCOS?””., pero estos barcos ya no se borran de la pantalla durante toda la 
partida. Por ello solo se ha de utilizar este mensaje para aprender a familiarizarse con el 
juego las primeras veces. 


Con el mensaje *'Quieres ver mis disparos?”” se indica la posibilidad de ver los disparos del 
ZX-81 en tu tablero, los cuales siguen las mismas reglas que los disparos del JUGADOR. 


Los disparos se introducen como los barcos, mediante 2 números mayores de 0 y menores 
que 11. El disparo realizado se materializa mediante una ''O”” en el tablero contrario y las 
coordenadas introducidas aparecen en las líneas 20 y 21 de la pantalla. 


Si el número introducido no cumple las reglas anteriores aparece en la pantalla el mensaje 
"NO PERMITIDO. METELO OTRA VEZ” y las coordenadas nuevas borran las antiguas. 


Si el disparo ya se ha realizado en una SALVA anterior aparece el mensaje ** DISPARO YA 
REALIZADO EN SALVA C””. 


Una SALVA tiene 5 ó menos disparos en función: 


1.- De los barcos no hundidos del contrario (sobre un total de 4). 
2.- Del total de cuadros no hundidos del contrario (sobre un total de 12). 


Así, si se hunde un barco completo del contrario es mejor que hundir su equivalente en 
cuadros, pues de esta forma se limitan más los disparos del contrario. 


Después de realizados los disparos de una SALVA aparecen mensajes con los barcos TO- 
CADOS del enemigo, indicando el barco tocado y la posición del tocado. Un cuadro tocado 
transforma el disparo en el DIAGRAMA en una '*0” en negativo. 


Normalmente las respuestas del ZX-81 son rápidas (10 segundos). A veces no lo son (2-3 
minutos), debidas a que la generación de disparos implica la comprobación de los disparos 
anteriores, pero pueden ser sólo 1 ó 2 veces en una partida. 


El GANADOR del juego es aquel que logra TOCAR los 12 CUADROS que componen los 
barcos del contrario. 


Entonces aparece SALVA C (JUGADOR o ZX-81, que será el PERDEDOR) *”"TENGO/TIE- 
NES O disparos'”, se borran los anteriores mensajes y aparece '"'HAS/HE GANADO””, fi- 
nalizando el juego. 
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A veces ésto no se cumple a rajatabla. De hecho se produce ésto cuando queda un cuadro 
(del que vaya a realizar la salva) por tocar aún y existe una gran difeencia de tocados con el 
otro jugador. En este caso aparece el mensaje ''TENGO/TIENES 0 disparos” y a continua- 
ción ''HAS/HE GANADO”. 


Las condiciones de generación de barcos por el ZX-81 (distancia entre 2 barcos de DOS O 
MAS CUADROS) pueden: 


a) ENDURECERSE más cambiando la sentencia 1.430 ''.2 THEN 1.260”” por 1.430”.1 
THEN 1.260” en cuyo caso los BARCOS pueden TOCARSE. 


b) Ser MENOS ESTRICTAS, en cuyo caso 2 »>3.59 y los barcos del ZX-81 aparecen unos 
más lejos de otros NECESARIAMENTE, dando una información adiciona! al jugador (que 
conoce así una extensa zona alrededor del barco tocado donde NO puede haber barcos). 


La solución a) daría mayores oportunidades al ZX-81 que al JUGADOR que respeta las 
normas establecidas al principio. Si no las respeta los barcos de ambos pueden tocarse. 


La solución b) es completamente favorable al JUGADOR. 


La solución ACTUAL es la que se ha considerado más equilibrada para ambos JUGADO- 
RES. 


ADIOS Y SUERTE.¡HUNDID LA FLOTA! 
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LOS BARCOS-DIAGRAMA 


ZX-81 


TOCADO mI DESTRUCTOR A (9,8) 
(8,6) (8,9) (10,6) (10,10) 


PROGRAMA NUM. 19 
JUEGO DE LOS BARCOS 


EN ESTE JUEGO DOS ARMADAS ENE- 
MIGAS TIENEN COMO ALMIRANTE A 
TIYAL ZX-81. 

CADA i É DISPONE DE 1 PORTA- 
VIONES (5 CUADROS), 1 CRUCERO (3) y 
2 DESTRUCTORES (2 CADA UNO), SI- 
TUADOS HORIZONTAL, VERTICAL O 
DIAGONALMENTE, PERO NUNCA TO- 
CANDO CON OTRO BARCO DE LA FLO- 
TA. 
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CADA FABEERO TIENE (10*10) CUA- 
DROS. LOS DISPAROS LOS REALIZA 
CADA ALMIRANTE DE FORMA ALTER- 
NATIVA Y MEDIANTE SAEMAS DE DIS- 
PAROS, CUYO NUMERO VARIA EN 
FUNCION DE LOS BARCOS QUE AUN 
TIENE EL ADVERSARIO. 


AHORA VOY A TRABAJAR EN E 


PARA GENERAR LOS TABLEROS Y MIS 
BARCOS. TARDO ALGO MAS DE 2MI- 
NUTOS. 


HASTA AHORA MISMO. 


q 3 
S +++ 2SA he S eee ERLELES 
TO AAA AAA 7 EE AE Ate 
5 Errar +. D Etettrtetrtrte 
Ss o A A O 
O A A 
o E o A A 
A o o de Z EEE 
1 +++ Li e£eececttette 

12345575398 SPB 75D 

NOM. ¿JUGADOR 
Escasa 


Dr 0 +0 
+ ode 
0000909 ++ 
+++ ++ 0r+ 


A AOS KI E 
+2 +OADOD2 AS 
+ ++00+0+ 
+0C0+++0+0 
+O0++++0+0+ 
Frr+trr+ 
1234557399383 


DI 


PT0 6) E+ Ul 


27+0++0+00+ 
IRA 
a +oappa C: 
+>2Q+ +02 200 
Q0+d++++B>+ 
30 10+0+00>+20 
Oc 
Qa+ 


i2IESO7OSS 


+ 10 6d $e (0 ON 4 00 40 po 


O++ 
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1 REM BARCOS 
800 DIM X(6) 
810 DIM Y(6) 
820 LET X(1)=1 
825 LET Y(1)=1 
830 LET X(2) = — 
835 LET Y(2) =1 
840 LET X(3) =1 
845 LET Y(3) = — 
850 LET X(4) =1 
855 LET Y(4) =1 
860 LET X(5) = 
353 LET Y(5) = 
865 LET Y(5) = 
870 LET X(6) = — 
875 LET Y(6)=1 
1000 REM "JUEGO DE LOS BARCOS” 
1010 PRINT AT 0,5; JUEGO DE LOS 
BARCOS” E 
1012 PRINT AT 115"_—_—_Q)____ 


1015 PRINT AT 3,0; "EN ESTE JUEGO 
DOS ARMADAS ENEMIGAS TIE- 
NEN COMO ¿ ES A TIY 
AL ZX-81” 

1017 PRINT 

1020 PRINT '"CADA ER DISPONE 
DE 1 PORTAVIONES (5 CUA- 
DROS), 1 CRUCERO (3) Y 2 DES- 
TRUCTORES (0 CADA UNO), SI- 
TUADOS HORIZONTAL, VERTI- 
CAL O DIAGONALMENTE, PERO 
NUNCA TOCANDO CON OTRO 
BARCO DE LA FLOTA” 

1021 PRINT 

1023 PRINT "CADA TABLERO TIENE 
(10*10) CUADROS. LOS DISPAROS 
LOS REALIZA CADA ALMIRANTE 
DE FORMA ALTERNATIVA Y ME- 

d $ DE DISPAROS, 
CUYO NUMERO VARIA EN FUN- 
CION DE LOS BARCOS QUE AUN 
TIENE EL ADVERSARIO.” 

1024 PAUSE 600 

1025 CLS 

1027 PRINT AT 10,0;”AHORA VOY A 
TRABAJAR EN FAST PARA GENE- 
RAR LOS TABLEROS Y MIS BAR- 
COS. TARDO ALGO MAS DE 2 
MINUTOS. HASTA AHORA MIS- 
MO.” 


1028 PAUSE 300 
1029 CLS 


1030 FAST 

1032 DIM A(10,10) 

1034 DIM B(10,10) 

1036 DIM C(7) 

1038 DIM D(7) 

1040 DIM E(12) 

1042 DIM F(12) 

1043 DIM G(12) 

1044 DIM H(12) 

1046 DIM K(10,10) 

1047 DIM U(4) 

1048 DIM R(4) 

1050 LET Z8=0 

1060 FORW=1TO dE 

1070 LET E(W)=- 

1080 LET H(W) = e 

1090 NEXT W 

1100 FORX=1T0O 10 

1110 FORY=1T010 

1120 LET B(X,Y)= 

1130 NEXT Y 

1140 NEXT X 

1150 FORX=1TO 12 

1160 LET F(X)= 

1170 LET G(X)= 

1180 NEXT X 

1190 FORX=1T0 10 

1200 FORY=1T010 

1210 LET A(X,Y)=0 

1220 NEXT Y 

1230 NEXT X 

1240 FORK=4T0O1STEP - 1 

1250 LETU6G=0 

1260 GOSUB 2910 

1270 LET R(K)=(5-K)*3-2*INT (K/4) 
+ SGN (K-1)-1 


1280 LET U(K) =K+ INT (K/4)- SGN (K 
—1) 

1290 1F V4+V24+V*V2=0 THEN GOTO 
1260 

1300 IF Y+V*U(K)>10 THEN GOTO 
1260 

13101F Y4+V*“U(K)<1 THEN GOTO 
1260 

1320 1F X+V2*U(K)>10 THEN GOTO 
1260 

1330 1F X+V2*U(K)<1 THEN GOTO 
1260 


1340 LETU6=S6+ 1 

1350 IF U6>25 THEN GOTO 1190 

1360 FORZ=0TOU(K) 

1370 LET F(Z+R(K)) =X + V2"Z 

1380 LET G(Z + R(K)) =Y + V*Z 

1390 NEXT Z 

1400 LET U8=R(K) 

1405 IF. S8>U8 + U(K) 
1460 

1410 FOR T =U8 TO (U8 + U(K)) 

1415 IF U8<2 THEN GOTO 1450 

1420 FORQ=1TOU8-1 

1430 IF SQR (ABS (F(Q)- F(T))**2+ ABS 
(G(Q) — G(T))**2)<3.59 THEN GOTO 
1260 

1440 NEXTOQ 

1450 NEXT T 

1460 FORZ=0TOU(K) 

1470 LET  A(F(Z + U8),G(Z + U8)) =.5 + 
SGN(K -— 1) *(K-— 1.5) 

1480 NEXT Z 

1490 NEXT K 

1492 GOSUB 5000 

1495 SLOW 

1500 PRINT AT 17,0;""DAR COORDENA- 
DAS DE....” 

1505 PRINT 

1510 PRINT AT 19,0;”PORTAVIONES”” 

1515 PRINT AT 20, O; AAA 


THEN GOTO 


1520 FORX=1T05 

1525 INPUT Y 

1530 INPUT Z 

1532 IF Y<1 OR Y>10 OR Z<1 OR Z>10 
THEN GOTO 1525 

1534 PRINT AT 19,15; (PY; Pz)" 

1535 PRINT AT 14-Z,1+ Y; "8; 

1540 LET B(Y,Z)= 

1542 NEXT X 

1555 PRINT AT 19,0;” 5 

1560 PRINT.— AT  19,0;”CRUCERO” 

1570 FORX=1T03 

1575 INPUT Y 

1580 INPUT Z 

1582 IF Y<1 OR Y>10 OR Z<1 OR Z>10 
THEN GOTO 1575 

1585 PRINT AT 19,15 (Y; 23Z:")" 

1587 PRINTAT 14-Z,1+ Y; 8"; 

1590 LET B(Y,Z)=2 

1600 NEXT X 

1605 PRINT AT 19,0;” > 
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1610 PRINT AT 19,0;'""DESTRUCTOR (A) 


1620 FORX=1T02 

1625 INPUT Y 

1630 INPUT Z 

1632 IF Y<1 OR Y 10 OR Z<1>0R Z 10 
THEN GOTO 1625 

1635 PRINT AT 19,15: (":Y;",23Z:)" 

1637 PRINT AT 14-Z,1+Y;” 

1640 LET B(Y,Z)=1 

1650 NEXT X 

1655 PRINTAT19,0;  ” 

1660 PRINT AT 19,0;'””DESTRUCTOR (B) 


" 1670 FORX=1T02 


1675 INPUT Y 

1680 INPUT Z 

1682 IF Y<1 OR Y>10 OR Z<1 OR Z>10 
THEN GOTO 1675 

1685 PRINT AT 19,153 (PY; ,"3Z:)" 

1687 PRINT AT 14-Z114Y;"B”; 

1690 LET B(Y,Z)=.5 

1692 NEXT X 

1693 GOSUB 6000 

1695 PRINT AT 20,0;'"ESTAS CONFOR- 
ME CON ESTAS COORDENADAS? 
(S/N) 

1696 INPUT Q$ 

1697 IF Q$="”N” THEN CLS 

1698 IF Q$='”N” THEN GOTO 1492 

1705 GOSUB 6000 

1710 PRINT AT 17,0;”QUIERES CO- 
MENZAR TU?”; 

1720 INPUT J$ 

1723 PRINT AT 18,0;3$ 

1725 PAUSE 200 

1726 IF J$=”BARCOS” THEN PRINT 
AT 18,0;'”DONDE ESTAN TUS 
BARCOS?”; 

1727 PAUSE 200 

1728 PRINT AT 18,0;” Ñ 

1729 1F J$=”BARCOS” THEN GOSUB 
8500 

1730 IF J$<>"BARCOS” THEN GOTO 
1890 

1880 GOTO 1710 

1890 LETC=0 

1900 PRINT 

1902 PRINT AT 19,0;”QUIERES VER 
MIS DISPAROS?”; 

1910 INPUT K$ 
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1915 PRINT AT 19,27;K$ 
1917 PAUSE 100 


1920 PRINT 
1930 |F J$<>'SI'' THEN GOTO 2620 
1940 REM RRA RR RRA RA ACTA RT 


1950 LETC=C+1 

1970 GOSUB 6000 

1980 PRINT AT 17,0;” 
"(JUGADOR)"; 

1982 PRINT TAB 10;”_—QL_.” 

1983 PAUSE 200 

1985 FAST 

1990 LETA=0 

2000 FOR W=.5 TO STEP .5 

2010 FORX=1T010 

2020 FOR Y =1TO 10 

2030 IF B(X,Y)=W THEN GOTO 2070 

2040 NEXT Y 

2050 NEXT X ; 

2060 GOTO 2080 

2070-LET A =A + INT (W + .5) 

2080 NEXT W 

2090 FORW=1T07 

2100 LET C(W)=0 

2110 LET D(W)=0 

2120 LET F(W)=0 

2130 LET G(W) =0 

2140 NEXT W 

2150 LETP3=0 

2160 FORX=1T0O 10 

2170 FORY=1T0O10 

2180 IF A(X,Y)>10 THEN GOTO 2200 

2190 LETP3=P3+1 

2200 NEXT Y 

2210 NEXT X 

2215 SLOW 

2220 PRINT — AT 
”DISPAROS.”; 

2222 PRINTTAB 6; —2L_>” 

2225 PAUSE 200 

2230 IF P3>A THEN GOTO 2260 

2240 PRINT AT 20,0;”"TIENES MAS 
DISPAROS QUE BLANCOS POSI- 
BLES.” 

2250 GOTO 2890 

2260 IF A<>0 THEN GOTO 2290 

2262 GOSUB 6000 

2270 PRINT AT 17,0; 

2275 PRINT AT 19,0;'"'QUIERES SABER 
DONDE ESTAN MIS BARCOS? 
(SIN)” 


¿ NUM. ”;C; 


19,0; "TIENES””;A; 


2277 1F Q$=”SI”” THEN GOSUB 7000 

2280 STOP 

2290 FORW=1 TOA 

2292 PRINT AT 

2295 INPUT X 

2300 INPUT Y 

2301 PRINT. AT 
y 

2302 PAUSE 100 

2303 PRINT AT 19,21; = ”” 

2304 IF W<=5 THEN PRINT AT 21,5*W; 
E 

2306 IF W>5 THEN PRINT AT 21,(5*W — 
eS E O 

2310 1F X<>INT (X) THEN GOTO 2370 

2320 IF X>10 THEN GOTO 2370 

2330 IF X<1 THEN GOTO 2370 

2340 IF Y<>INT (Y) THEN GOTO 2370 

2350 ¡IF Y>10 THEN GOTO 2370 

2351 PAUSE 100 

2352 PRINT AT 14-Y,15+X;” 0””; 

2360 IF Y>=1 OR X>=1 THEN GOTO 
2390 . 

2370 PRINT AT 19,0;""NO VALIDO. DIS- 
PARA OTRA VEZ.” 

2372 PAUSE 100 

2373 PRINTAT 19,0; (32) ” 

2375 FAST 

2380 GOTO 2295 

2390 IF A(X,Y)>10 THEN GOTO 2440 

2400 LET C(W) =X 

2410 LET D(W) =Y 

2420 NEXT W 

2421 PAUSE 100 

2422 GOSUB 6000 

2430 GOTO 2460 

2435 SLOW 

2440 PRINT AT 20,0;”"DISPARO YA 
REALIZADO EN SALVA”;A(X,Y) 
- 10 

2443 PAUSE 100 

2446 PRINT AT 20,0;” 

2450 GOTO 2295 

2460 FORW=1TOA 

2470 1F A(C(W),D(W))=3 THEN GOTO 


19,183 WI)"; 


19,213 GONY 


(32) »” 


2540 

2480 IF A(C(W),D(W))=2 THEN GOTO 
2560 

2490 IF A(C(W),D(W))=1 THEN GOTO 
2580 


2500 IF A(C(W),D(W))=.5 THENGOTO 


2600 

2510 LET A(C(W),D(W)) =10+C 

2520 NEXT W 

2530 GOTO 2614 

2535 FAST 

2540 PRINT AT 17,0; "TOCADO MI POR- 
TAVIONES" ¡AT 17,23; (',C(W);”, 
"D(W);)"; 

2545 PRINT AT 14- D(W)15+C(W); 8”; 

2550 GOTO 2510 

2560 PRINT AT 18,0;'"TOCADO MI CRU- 
CERO”; AT 18,23; (""C(W);”,";D 


M2)”; 
2565 PRINT AT 14-D(W), 15+C(W);” 
5 


2570 GOTO 2510 

2580 PRINT AT 19,0; TOCADO MI DES- 
TRUCTOR A”:AT 19,23;""(";C(W); 
PAD o 

2585 PRINT AT 14- D(W), 15 + C(W);'*0 

2590 GOTO 2510 

2600 PRINT AT 20,0;TOCADO MI DES- 
TRUCTOR 8B'';AT 20,23;"'('",C(W); 
DW); 


2605 PRINT AT 14-— D(W), 15 + C(W);'*0' 


2610 GOTO 2510 

2614 PAUSE 500 

2616 GOSUB 6000 

2620 LETA=0 

2640 LETC=C+1 

2650 GOSUB 6000 

2660 PRINT AT 17,0;'*8, 
"(ZX- 81)” 

2665 PRINT TAB 10; "—£l—>» 

2666 PAUSE 200 

2668 FAST 

2670 LETA=0 

2680 FOR W=.5TO3STEP .5 

2690 FORX=1T0O 10 

2700 FORY=1T010 

2710 1F A(X,Y)=W THEN GOTO 2750 

2720 NEXT Y 

2730 NEXT X 

2740 GOTO 2760 

2750 LETA=A + INT (W+.5) 

2760 NEXT W 

2770 LETP3=0 

2780 FORX=1T0 10 

2790 FOR Y =1T010 


A NUM.";C; 
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2800 IF A(X,Y)>10 THEN GOTO 2820 

2810 LETP3=P3+1 

2820 NEXT Y 

2830 NEXT X 

2835 SLOW 

2840 PRINT AT 19,0; TENGO”;A;'DIS- 
PAROS.”” 

2845 PRINTTAB 5;” 

2846 PAUSE 200 

2847 FAST 

2850 IF P3>A THEN GOTO 2880 

2855 SLOW 

2860 PRINT AT 20,0; "TENGO MAS DIS- 
PAROS QUE BLANCOS POSIBLES. 


, 


da» 


2870 GOTO 2270 

2880 IF A<>0 THEN GOTO 2960 
2885 GOSUB 6000 
2890 PRINT AT 17,0;”” 
2900 STOP 

2910 LET X=INT(RND*10+ 1) 

2920 LET Y =INT(RND*10+ 1) 

2930 LET V =INT (3*RND- 1) 

2940 LET V2=INT (3*RND- 1) 

2950 RETURN 

2960 FOR W =1 TO 12 

2965 FAST 

2970 1F H(W)>0 THEN GOTO 3800 
2980 NEXT W 

2990 REM************RANDOM 

2995 FAST 

3000 LET W=0 

3010 LETR3=0 

3020 GOSUB 2910 

3030 LET R2=0 

3050 LETR3=R3+1 

3060 IF R3>100 THEN GOTO 3010 
3070 1F X>10 THEN GOTO 3110 

3080 IF X>0 THEN GOTO 3120 

3090 LET X =1 + INT (RAND*2.5) 

3100 GOTO 3120 

3110 LETX=10- INT (RND*2.5) 

3120 IF Y>10 THEN GOTO 3160 

3130 IF Y>0 THEN GOTO 3270 

3140 LET Y =10- INT (RND*2.5) 

3150 GOTO 3270 

3160 LET Y =10— INT (RND*2.5) 

3170 GOTO 3270 

3180 LET F(W) =X 

3190 LET G(W) =Y 

3200 IF W =A THEN GOTO 3380 
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3210 IFR2=6 THEN GOTO 3030 

3230 LETR2=R2+1 

3250 LETX =X+X(R2) 

3260 LET Y =Y + Y(R2) 

3270 IF X>10 THEN GOTO 3210 

3280 IF X<1 THEN GOTO 3210 

3290 IF Y>10 THEN GOTO 3210 

3300 IF Y<1 THEN GOTO 3210 

3310 |F B(X,Y)>10 THEN GOTO 3210 

3320 FORT=1TOW 

3330 1F F(T)]>xX THEN GOTO 3350 

3340 IF G(T)<>X THEN GOTO 3210 

3350 NEXT T 

3360 LETW =W+1 

3370 GOTO 3180 

3380 IF K$<>'"SI'”” THEN GOTO 3420 

3390 FOR|=1 TOA 

3395 SLOW 

3400 IF I<=5 THEN PRINT AT 21,5*1;” 
OF EAM 

3402 1F l>5 THEN PRINT AT 21,5*1- 25; 
ESE GM; 

3405 PRINT AT 14-G(1))1+F(1);0”; 

3410 NEXT | 

3420 FORW=1 TOA 

3430 IF B(F(W),G(W)) =3 THEN GOTO 
3500 

3440 IF B(F(W),G(W)) =2 THEN GOTO 
3520 

3450 IF B(F(W),G(W))=1 THEN GOTO 
3560 

3460 IF B(F(W),G(W))=.5 THEN GOTO 
3540 

3470 LET B(F(W),G(W)) =10+C 

3480 NEXT W 

3490 GOTO 1950 

3500 PRINT AT 18,0;'"TOCADO TU POR- 
TAVIONES”'¡AT 18,23; ("¡F(W);”, 
aw)”; 

3505 PRINT AT 
E > 

3510 GOTO 3470 

3520 PRINT AT 19,0;""TOCADO TU CRU- 
CERO” ¡AT 19,23;"'(¡F(W);”,G 
WM"; 

3525 PRINTAT 14- G(W),1 + F(W); 9”; 

3530 GOTO 3470 

3540 PRINT AT 20,0; TOCADO TU DES- 
TRUCTOR A”';¡AT 20,23; ("¡F(W); 
EIN); 

3545 PRINT AT 14- G(W,1+F(W); 0”; 


14-G(W),  —1+F(W); 


3550 GOTO 3470 

3560 PRINT AT 21,0; "TOCADO TU DES- 
TRUCTOR B”;AT 21,23;(”;F(W); 
BEI; 

3563 PRINT AT 14- G(W),1+ F(W);'"G>: 

3564 PAUSE 500 

3566 GOSUB 6000 

3569 FAST 

3570 FORQ=1T012 

3580 IF E(Q>-1 THEN GOTO 3730 

3590 LET E(Q)=10+C 

3600 LET H(Q) = B(F(W),G(W)) 

3610 LETM3=0 

3620 FORJ=1T012 

3630 IF H(J)<>H(Q) THEN GOTO 3650 

3640 LETM3=M3+ 1 

3650 NEXT J 

3660 IF M3<>ANT — (H(Q)+.5)+1+ INT 
(INT (H(Q)+.5)/3) THEN GOTO 
3470 

3670 FORJ=1T012 

3680 IF H(J)<>H(Q) THEN GOTO 3710 

3690 LET E(J)=-1 

3700 LET H(J)=-1 

3710 NEXTJ 

3720 GOTO 3470 

3730 NEXT Q 

3735 SLOW 

3740 GOSUB 6000 

3742 PRINT— AT 
ABORTADO” 

3745 FAST 

3750 FORQ=1T0 12 

3760 PRINT AT 19,6*Q;”E('':Q;)="'; 
E(Q) 

3770 PRINT AT 20,6*Q; H('Q;")="; 
H(Q) 

3780 NEXTAQ 

3790 STOP 

3800 REM ***********ORDENACION 

3805 FAST 

3810 FORR=1T0O 10 

3820 FORS=1TO10 

3830 LET K(R,S)=0 

3840 NEXT S 

3850 NEXT R 

3860 FORU=1T012 

3870 IF E(U)<10 THEN GOTO 4020 

3880 FORR=1T0 10 

3890 FORS=1T0O10 

3900 IF B(R,S)<10 THEN GOTO 3930 


17,0; "PROGRAMA 


3910 LET K(R,S) = — 10000000 

3920 GOTO 4000 

3930 FOR M=SGN (1-—R) TO SGN (10- 
R) 

3940 FOR N =SGN (1-S) TO SGN (10-— 
S) 

3950 IF N+M+N*M=0 THEN GOTO 
3980 

3960 IF B(R+ M,S + N)<>E(U) THEN GO- 
TO 3980 

3970 LET K(R,S) =K(R,S)+ E(U) -— S*INT 
(H(U) + .5) 

3980 NEXT N 

3990 NEXT M 

4000 NEXT S 

4010 NEXTR 

4020 NEXT U 

4030 FORR=1TOA 

4040 LETF(R)=R 

4050 LET G(R)=R 

4060 NEXT R 

4070 FORR=17T010 

4080 FORS=1TO10 

4090 LETT=1 

4100 FORM=1TOA 

4110 1F. K(F(M),G(Mp>=K(F(T),G(T)) 
THEN GOTO 4130 

4120 LETT=M 

4130 NEXT M 

4131 JF R>A THEN GOTO 4140 

4132 IFR=S THEN GOTO 4210 

4140 1F K(R,S)<K(F(T),G(T)) THEN GO- 
TO 4210 

4150 FORM=1TOA 

4160 1f. F(M)<>R THEN GOTO 4190 

4170 1F G(M)=S THEN GOTO 4210 

4180 NEXT M 

4190 LET F(T)=R 

4200 LET G(T)=S 

4210 NEXTS 

4220 NEXTR 

4230 GOTO 3380 

4240 STOP 

5000 REM DIAGRAMA 

5002 FAST 

5005 PRINT TAB 4;”E 


5010 PRINT AT 2,5;”"TU"¡AT 2,18;” 
ZxX-81” 
5012 PRINT TAB 5;"_2L”;TAB 18;” 
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5015 PRINT AT 
(411234567890”” 
5050 FOR1=1TO10 10) 
5060 PRINT AT 341,23 "+++ ++++ 
Mr PRA E +44” 
5070 PORINT AT 1+3,0;11—I;¡AT 1+3, 
14,111; 

5100 NEXT | 

5300 RETURN 

6000 FOR!=1TO6 

6050 PRINT AT 15+1,0;?” (32) e 

6100 NEXT |! 

6200 RETURN 

7000 FOR W=1T0 12 

7100 PRINT AT  20,5"W;"("¡F(W);”, 
"G(w);5”; 

7150 PRINT AT 14-— G(W),1 + F(W); 


15,2;'*1234567890 


” 


7200 NEXT W 

7300 RETURN 

8500 REM BARCOS ZX-81 

8750 FORZ=1TO5 

8753 PRINT AT 14-G(Z),15+F(Z); 8" 
8765 NEXT Z 

8770 FORZ=6T08 

8775 PRINT AT 14-G(2),15+F(2);"3'” 
8785 NEXT Z 

8790 FORZ=9T0 10 

8795 PRINT AT 14-G(Z),15+F(Z); “A” 
8805 NEXT Z 

8810 FORZ=11T012 

8812 PRINT AT 14-G(2),15+F(Z);"B2 
8815 NEXT Z 

8820 RETURN 

9990 SAVE ''BARCOS”” 

9999 GOTO 1 
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EL ** CASTILLO” ENCANTADO (Programa núm. 20) 


Si pensó que los juegos de la fantasía no eran lógicos entonces este programa, facilmente 
adaptable y ampliable, le hará pensar de otra forma. 


Si está usted harto del tipo de aventuras que es puramente azar y no implica habilidad real, 
aquí está un juego que es verdaderamente lógico. 


Como en los buenos juegos de aventuras su tarea es RECOBRAR EL CALIZ MÁGICO que 
ha sido robado por un BRUJO MALVADO que está escondido en el LABERINTO DEL 
CASTILLO ENCANTADO. 


Este laberinto está dispuesto mediante una estructura fija (ver Figura 1) y cada una de las 
habitaciones tiene un número de identificación. 


EL BRUJO no tiene poder para SALIR del laberinto mientras transporta el caliz, pero si 
usted lo atrapa, él abandonará el cáliz y desaparecerá rápidamente. Para ayudarle a usted 
en su tarea tiene un ASESORAMIENTO MAGICO y una PROVISION LIMITADA DE 
MAGIA. 


LAS CRIATURAS MALEFICAS. 


Dentro del laberinto están al acecho dragones, serpientes, enanos, duendes y lugares 
mágicos, las cuales permanecen en su propia habitación y no pueden moverse libremente 
como el BRUJO. El programa emitirá ADVERTENCIAS sobre el contenido de la habitación 
en la que está próximo a entrar, pero dichas advertencias no están en orden. Puede usted 
recibir una advertencia acerca de una serpiente mientras se encuentra, por ejemplo, en la 
habitación n” 2, pero usted NO SABRA (a menos que lo recuerde) en cual de las cuatro 
posiciones posibles a las cuales es posible mover se encuentra dicha serpiente. 


Puede usted utilizar una *'visión'* para echar un vistazo a la habitación, pero siempre 
utilizando una cierta cantidad de su provisión mágica, que es limitada (500 unidades). 


Si es usted lo bastante desgraciado como para caer donde estén un DRAGON, una SER- 

PIENTE o UN ENANO puede afrontarlo de una de las formas siguientes: 

- Puede usted ATURDIRLO, pero debe abandonar inmediatamente la habitación o él se 
recobrará y la criatura le atacará. A 


- Puede usted TRANSPORTARLO, pero si no es afortunado la criatura mágica puede 
reaparecer en la misma habitación. 


- Puede usted DESTRUIRLO, en cuyo caso desaparecerá del juego. 


En todas estas opciones tiene usted que gastar cierta cantidad de MAGIA, la cual depende 
de la criatura de que se trate y de la forma que usted adopte para apartarlo. Dichas opcio- 
nes están relacionadas en orden creciente de MAGIA que se necesita gastar para reali- 
zarla. Si no usa la suficiente magia la criatura solo resultará ATURDIDA (en cuyo caso 
tendrá usted una segunda oportunidad), o se encolerizará y le atacará. 


Los duendes se mantendrán en su ubicación pero a cambio de un PRECIO. Ellos le dirán 
donde está escondido el brujo, teniendo cuidado de proporcionarles a cambio MONEDAS 
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DE ORO. Usted puede hacer las monedas con su habilidad MAGICA (pero no lo haga 
demasiado precipitadamente, pues la ADVERTENCIA es la misma para la aproximación 
de un DUENDE como para la de un GNOMO AMIGO). 


Hay un obstáculo más escondido en el laberinto: UNA HABITACIÓN MAGICA, desde 
donde será instantáneamente trasnportado a cualquier otra habitación del CASTILLO 
ENCANTADO. La LEY DE MURPHY determina que no existiendo posibilidad de peligro 


antes de ser transportado, la situación en que se encuentre después de hacerlo ¡puede ser 
10 veces peor!. 


LOS MOVIMIENTOS DEL BRUJO 

El malvado BRUJO es muy inteligente. Si usted se dirige hacia la habitación donde está 
escondido, él huirá. La distancia a la que puede trasladarse es de 3 HABITACIONES y, 
si puede encontrarla, él se esconderá en la habitación mágica para hacer más dificil su 


captura. 


Para recuperar el CALIZ debe usted atrapar al BRUJO. Esto no es fácil (el juego no sería 
demasiado divertido si fuera fácil), pero existen 3 AYUDAS para llevar a cabo su tarea: 


- El brujo no puede trasladarse a la habitación que acaba usted de abandonar. 

- El brujo no puede entrar en una habitación donde esté un DUENDE. 

- El BRUJO no puede entrar en una habitación donde usted haya CREADO UNA PARED 
MAGICA. 

La pared mágica puede ser creada en cualquier punto del laberinto, pero solo puede crear 

UNA PARED. Si usted CREA UNA SEGUNDA la primera se destruye. No se puede crear 

una pared en una habitación que esté ya ocupada. Si usted trata de hacerlo la pared se 


caerá de inmediato. 


La opción finalmente disponible si todo ha fallado (si ha gastado toda su MAGIA o ha sido 
ASESINADO) es la posibilidad de REENCARNACION. 


UN EJEMPLO TIPICO DE LA SALIDA POR PANTALLA DE ”EL CASTILLO ENCAN- 
TADO” 


- Su misión es atrapar el BRUJO MALVADO y devolver el CALIZ MAGICO. 


- Le ha sido dada una AYUDA MAGICA CON 500 unidades de MAGIA. Usela para evitar 
los peligros escondidos en el CASTILLO ENCANTADO. 


¿Quiere volver a empezar? 
1. ATENCION 
- ¡Siento MAGIA MUY CERCA! 
- Los PASILLOS conducen a las habitaciones 15, 18, 21, 24. 


- Usted está ahora en la habitación 42. ¿Quiere usted CREAR UNA PARED, MOVERSE a 


otra habitación o una visión? (C. M. V) M 
- A que habitación quiere usted ir) 15 
2. ATENCION 
- ¡Escucho un DRAGON! 
- Los pasillos conducen a las habitaciones 5 y 41. 
- Está usted en la habitación n* 15 ¿quiere usted crear una pared, moverse o una visión? V. 
- De qué habitación quiere usted la visión? 5. 
Hay Dragón amarillo en la habitación n? 5. 
Hautilizado 19 unidades (de MAGIA) y le quedan 481 unidades. 
3. ATENCION 
- ¡Escucho un DRAGON! 
- Los pasillos conducen a las habitaciones 5 y 41. 


- Está usted ahora en la habitacion n* 15 ¿Quiere usted crear una pared, moverse o una 
visión? M 


- ¿A que habitación quiere usted ir? 5. 
4. Dragón amarillo 


- ¡Está preparado para atacarle! 
Tiene usted tres opciones: 


- 1. ATURDIRLO 


2. TRANSPORTARLO 
3. DESTRUIRLO 


¿Cual elige usted? 3 
¿Con cuanta cantidad de magia? 50 


- El dragón está solo DESLUMBRADO 
Ha usado usted 50 unidades (de magia) y le quedan todavía 431 unidades. 
5. ¡El dragón amarillo ataca rápidamente! 


¡Oh querido aparece usted MUERTO! 
¿Le gustaría REENCARNARSE? (Y =Si, N =N0) N. 


4) 


(0) 


pd 


/ VAA 40 


FIGURA 15 


Y VAA 14 


Piano de las habitaciones (NUMEROS) del CASTILLO ENCANTADO y de las interco- 


nexiones entre ellas. 


Este Programa ocupa 7 K. 


PROGRAMA NUM. 20 


10 REM 

20 DIM A(42) 

22 DIM D(4) 

30 PRINT TAB 5; Ek: 
NEBROSO” 

40 GOSUB 9500 

50 GOSUB 9000 

60 GOSUB 8000 

70 FORX=1TO9 

80 GOSUB 7000 

90 NEXT X 

100 FORI=1T03 

110 LETX=10 

115 GOSUB 7000 

120 LETX=11 

125 GOSUB 7000 

130 NEXT 1 

140 LETX=0 

143 GOSUB 7000 

146 LETY=R 

150 GOSUB 7000 

155 LETC=R A 

160 LET M =500 

165 LETL=0 

170 LETW =0 

173 LETK=0 

176 GOSUB 6000 

180 PRINT '" CREAS UN MURO, MUE- 
VES O QUIERES UNA VISION? 
CONTESTA C/M/V” 

185 INPUT Q$ 

190 CLS 

200 IFQ$=""V' THEN GOSUB 5000 


'ASTILLO TE- 


2051F Q6="V” THEN GOTO 240. 


210 1F Q$=*'C” THEN GOSUB 4000 

2151F Q6=*"C” THEN GOTO 240 

220 1|F Q$=*"M” THEN GOSUB 3000 

2251F Q$='"M” THEN GOTO 240 

230 GOTO 180 

240 IF A(Y)=0 OR K=1 OR A(Y)=10 
OR A(Y)=11 THEN GOTO 280 

245 PRINT "EL >; 

250 LETZ=Y 

255 GOSUB 2000 

260 PRINT "ATACA DE REPENTE” 

270 GOTO 390 

280 |F M>0 THEN GOTO 320 

290 PRINT "TE HAS QUEDADO SIN 
MAGIA Y LAS FUERZAS DIABOLI- 
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CAS ATACAN” 
310 GOTO 390 
320 ¡FW =0THEN GOTO 170 


330 PRINT ”% 
RROTADO AL BR AGO: 
350 PRINT "QUIERES ATRAPAR 
OTRO BRUJO? CONTESTA S/N”” 
360 INPUT Q$ 


370 1F Q$=”S'” THEN GOTO 30 

380 GOTO 999 

390 PRINT "MALA SUERTE: 
FARON” 

400 PRINT "QUIERES RESUCITAR? 
CONTESTA S/N” 

410 INPUT Q$ 

420 1F Q$=”N” THEN GOTO 999 

430 PRINT "EL MISMO BRUJO? CON- 
TESTA S/N” 

435 INPUT Q$ 

440 1F Q6="S” THEN GOTO 160 

450 GOTO 30 

999 PRINT 

1000 LETM=M-R 

1010 PRINT ''HAS USADO”';R; 

1015 PRINT' UNIDADES DE MAGIA” 

1020 PRINT "TE QUEDAN”;M;”UNI- 
DADES” 

1030 RETURN 

2000 GOTO (2000 + A(Z)*10) 

2010 PRINT DRAGON ROJO”; 

2013 LETS=30 

2016 RETURN 

2020 PRINT "DRAGON VERDE”; 

2023 LETS=25 

2026 RETURN 

2030 PRINT "DRAGON AMARILLO”; 

2033 LETS=20 

2036 RETURN 

2040 PRINT "EROTALO DE PLATINO”; 

2043 LETS =28 

2046 RETURN 

2050 PRINT ”EROTALO 

2053 LETS =23 

2056 RETURN 

2060 PRINT ”EROTA 

2063 LETS=18 

2066 RETURN 

2070 PRINT "ENÑAÑNO CON 

2073 LETS =24 

2076 RETURN 
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2080 PRINT "E 

2083 LETS =19 

2086 RETURN 

2090 PRINT ”” 

2093 LETS=1 

2096 RETURN 

2100 PRINT 

2105 RETURN 

2110 PRINT 

2115 RETURN 

3000 PRINT ”'A QUE HABITACION 
QUIERES |R2”” 

3005 INPUT P 

3010 LETF=0 

3015 PRINT 

3020 FOR1=1T0O4 

3030 IF D(1)=PTHENLETF =1 

3040 NEXT | 

3050 IF P=0 OR F=0 THEN GOSUB 
6000 

3055 IFP=00R F=0 THEN GOTO 3000 

3060 IF C<>P THEN GOTO 3180 

3070 LETW =1 

3075 LETF=0 

3080 FOR|=1TO 4 

3090 LET T=CODE A$(C*4-4+1| TO C* 
4-4+1)-21 

3100 IFT=00RT=YORT=LORT=P 
THEN GOTO 3130 

31051F A(T)=10 THEN GOTO 3130 

3110 1F W=1 OR RND<5 THEN LET 
Cc=T 

3120 LETW=0 

3125 1F A(T)=11 

3130 NEXT | 

3140 IF W =1 THEN RETURN 

3150 /|F F=0 THEN PRINT ”'EL BRUJO 
HA ESCAPADO”” 

3155 IFF=0 THEN GOTO 3180 

3160 PRINT ''EL BRUJO HA EMPLEA- 
DO EL LUGAR MAGICO PARA DE- 
SAPARECER”” 

3170 LETX=0 

3172 GOSUB 7000 

3175 LETC=R 

3178 GOTO 3060 

3180 LETY =P 

3185 IF A(P)=0 THEN RETURN 

3190 IF A(P)>11 THEN GOTO 3230 

3200 PRINT ''ZAS, HAS CAIDO EN LA 
TRAMPA MA-GICA” 


THEN LET F=1 


3220 LETX=0 

3223 GOSUB 7000 

3225 LETY=R 

3228 RETURN 

3230 |F A(P)<>10 THEN GOTO 3300 

3240 LET R =iNT (RND*20 + 20) 

3250 PRINT "EL DUENDE TE PUEDE 
DECIR DONDE ESTA EL BRU- 
JO POR”; 

3253 PRINTR; 

3259 PRINT *"'MONEDAS.””; 

3260 PRINT *”'SI ESTAS DE ACUERDO 
ESCRIBE, S! NON” 

3265 LETB=0 

3270 INPUT Q$ 

3275 LET Y =P 

3280 1F Q$<>"S'” THEN GOSUB 6000 

3281 1F  Q$<>"S” THEN RETURN 

3290 PRINT "EL BRUJO ESTA EN LA 
HABITACION ””;C 

3293 LETM=M-R 

3294 GOSUB 1000 

3295 GOSUB 6000 

3296 RETURN 

3300 LETK=0 

3303 LET Z =Y 

3305 GOSUB 2000 

3307 PRINT "ESTAS PREPARADO PA- 
RA ATACAR” 

3310 PRINT ”"TIENES TRES POSIBILI- 
DADES:” 

3311 LETK=0 

3320 PRINT *'1— ATURDIRLO”” 

3330 PRINT *”'2-TRANSPORTARLO”” 

3340 PRINT **3-DESTRUIRLO”” 

3350 INPUT P 

3360 IF P<1 OR P>3 THEN GOTO 3350 

3338 PRINT "CANTIDAD DE MAGIA 
QUE EMPLEAS?”” 

3375 INPUT R 

3380 IF R<O OR R>M THEN GOTO 3370 

3390 CLS 

3392 PRINT EL”; 

3393 GOSUB 2000 

3395 PRINT — * ESTA”; 

3397 LETB=0 

3400 LETAL =RND 

3402 IF P=1 AND R>INT ((2*5)/3) + AL* 
(2*S)/3) THEN PRINT ""ATURDIDO 


3405 IFP=1 AND RANT (((2*S)/3) + AL* 


(2+ S)/3) THEN LETK =1 

3410 1F P<>2 OR R<S+INT (AL*S*2) 
THEN GOTO 3430 

3420 PRINT "SIENDO TRANSPORTADO 

3423 LETX=A(Y) 

3425 LETA(Y)=0 

3426 LETU=R 

3427 GOSUB 7000 

3428 LETR=U 

3430 IF P=3 AND R>S*3+ INT (AL*S*2) 
THEN PRINT **DESTRUIDO”” 

3435 IF P=3 AND R>S*3+ INT (AL*S*2) 
THEN LET A(Y(=0 

3440 IFK=0AND A(Y)<>0 THEN PRINT 
*”DESLUMBRADO”” 

3442 IF K=0 AND A(Y)>0 THEN LET 
B=INT(RND*8) 

3450 GOSUB 1000 

3455 IF B>2 AND M>0 THEN GOTO 3310 

3460 RETURN 

4000 PRINT "EN QUE HABITACION 
QUIERES CREAR LA PARED MA- 
CA?” 

4010 INPUT L 

4020 PRINT 

4030 IF <1 OR L>42 THEN GOSUB 6000 

4035 IF L<1 OR L>42 THEN GOTO 4000 

4040 IF A(L)<>0 OR L=C THEN GOTO 
4080 

4050 PRINT **'LA PARED MAGICA AHO- 
RA ESTA EN LA HABITACION”';L 

4070 GOTO 4110 

4080 PRINT ""CRAS, LA HABITACION”; 
EA 

4085 LETL=0 

4090 PRINT "CONTIENE MAGIA, LA 
PARED SE HA CAIDO” 

4120 LET R=INT (RND*20 +20) 

4130 GOSUB 1000 

4140 RETURN 

5000 PRINT ”DE QUE HABITACION 
QUIERESLA VI-SION?” 

5010 INPUT P 

5020 LETF=0 

5030 FOR | =1 TO 4 

5040 IFP=D(I) THEN LETF=1 

5050 NEXT | 

5960 IF P=0 OR F=0 THEN GOSUB 
6000 

5065 IFP=00R F=0 THEN GOTO 5000 


5070 PRINT 

5080 IF P=C THEN PRINT "EN LA HA- 
BITACION”';P;”'ESTA EL BRU-JO”* 

5090 IF A(P)=0 THEN PRINT "EN LA 
HABITACION ”;P;”"NO HAY NA- 
DIE” 

5095 IF A(P)=0 THEN GOTO 5130 

5100 PRINT "HAY UN”; 

5110 LETZ=P 

5115 GOSUB 2000 

5120 PRINT "EN LA HABITACION”';P 

5130 LET R=INT (RND*20+ 10) 

5135 PRINT 

5140 GOSUB 1000 

5150 RETURN 

6000 LETF=0 

6005 LET Q$="'1234” 

6010 FORI=1T04 

6020 LET D(1)=CODE A$(T*4-4+1 TO 
Y *4-4+1)-21 

6025 IF D(I)=0 THEN GOTO 6040 

6030 LET F=F+A(D(I))- (100*(D(1) =C 
») 

6040 NEXT 1 

6050 IF F=0 THEN GOTO 6170 

6060 PRINT ATENCION:”' 

6070 IF F<O THEN PRINT *-EL MANTO 
ESTA MUY CERCA.” 

6080 FORI=1T04 

6090 LETR=INT(RND* 441) 

6095 IF QS(R TO R)=" "THEN GOTO 
6090 

6100 LETOS(RTOR)=" ” 

6103 IF D(R)=0 THEN GOTO 6150 

6105 LETT=A(D(R)) 

6110 /F T>0 AND T<4 THEN PRINT ”- 
SE OYE RUGIR UN DRAGON” 

6120 IF T>3 AND T<7 THEN PRINT*”- 
SE OYE SILBAR UNA SERPIENTE” 

6130 IF T>6 AND T<11 THEN PRINT”- 
SE OYE TINTINEO DE MONEDAS” 

6140 IF T=11 THEN PRINT ”-SE NOTA 
CERCA UN ENCANTAMIENTO” 

6150 NEXT | 

6160 PRINT 

6170 PRINT "LOS PASADIZOS CON- 
DUCEN A”; 

6180 FORI=1T04 

6190 IF D(I)>0 THEN PRINT D(1);","; 

6200 NEXT | 

6210 PRINT 
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6220 PRINT "ESTAS AHORA EN LA HA- 
BITACION ”?;Y; 

6230 RETURN 

7000 LET R=INT (RND*42 + 1) 

7005 IF A(R)>0 THEN GOTO 7000 

7010 LET A(R) =X 

7020 RETURN 

9000 LET A$=”'*/;+ -—,.0- 123-456* 
789*ABC*DEF/GH!/JKL/MNO; 
PQR;¡STU”” 

9010 LET A$=A$+”'¡VWX,9X+,Y+ +, 
7A+.90+.Y + +.AD+0CF +0Y + 
+0DG+1Fl +1Y+ +” 

9020 LET A$=A$+"”'1GJ + 21 K+2JL + 
2NM + 3LO + 3Z + + 3MP+40R+ 
4Z2 + 4P54+5RU+52+ +" 

9030 LET A$=AS$+ "55Y + 6UX+6Z+ + 
67V +8BEHNQTW"' 

9040 RETURN 


9500 PRINT 

9501 PRINT 

9502 PRINT '"TU MISION ES ENCON- 
TRAR AL BRUJO DIABOLICO Y 
RECUPERAR EL MANTO MAGI- 
co.” 

9505 PRINT 

9510 PRINT "PARA AYUDARTE TE 
HAN DADO 500 UNIDADES DE 
MAGIA.” 

9520 PRINT ''APROVECHALAS PARA 
SUPERAR LOS PELIGROS OCUL- 
TOS EN LAS HABITACIONES TE- 
NEBROSAS.” 

9530 PAUSE 400 

9540 CLS 

9550 RETURN 

9990 SAVE ''CASTILLE”” 

9999 GOTO 1 


TWENTY **ROMS” (Programa núm. 21) 
DESCRIPCION 


En la antigua mansión de TWENTY ROOMS (20 habitaciones) se ha cometido un crimen. 
Las habitaciones están comunicadas entre sí conforme al plano, (Figura 16). 


PLANO DE LA MANSION 


Los JUGADORES (detectives a investigar quien es el criminal) pueden ser 4 como máximo. 
Si el jugador es sólo uno entonces juega él sólo contra el ZX-81. 


Existen 6 sospechosos de diferentes países (3 hombres y 3 mujeres) y 6 armas posibles, 
definidos cada uno mediante un número del 1 al 6. 


El objetivo de cada jugador es realizar una ACUSACION, acertando de forma simultánea: 
1. HABITACION DONDE SE COMETIO EL CRIMEN. 

2. ARMA CON LA QUE SE COMETIO EL CRIMEN. 

3. ASESINO. 


Cada jugador comienza el juego situado en una habitación obtenida aleatoriamente (nor- 
malmente distinta de las de los otros jugadores) y dispone de 500 £ para sus gastos. 
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En cada jugada cada jugador debe consumir 3 turnos o movimientos consecutivos. En cada 
movimiento se disponen de las siguientes opciones: 


VISION (V): Conocer el contenido de una habitación, que puede ser: 
- Uno de los acusados (6). 


- UN ARMA (Y SOLO UNA), por lo que, cuando se encuentra, se conoce indirectamente 
cual es el arma del crimen. 


- UN TESORO (con lo que se obtiene un regalo de 200 f). 


- LA ADIVINA, que puede adivinar la HABITACION, el ARMA o el ASESINO, (PERO 
SOLO UNO DE LOS 3) pagando 200£ por ello. 


- EL SOBRELACRADOSi se abre el sobre se han de pagar 200 £ (pero con ello se conoce la 
solución completa del juego). Si a continuación se acusa, se gana la partida. 


Cada visión consume una cierta cantidad de dinero. 


MOVER (M): Trasladarse de habitación en habitación dentro de la RED de habitaciones de 
la mansión. El movimiento se ha de hacer de una habitación a la contigua, para lo cual se 
indica: "Estás en la habitación X””. 


"Los pasillos conducen a las habitaciones A, B, C, D””, (4 como máximo), y a esto sigue la 
elección de las posibles opciones. 


Si en una habitación se encuentra un ACUSADO existe la posibilidad de hacerle CON- 
FESAR si es e no el asesino mediante una cierta cantidad de dinero. Si la cantidad es 
mayor que la disponible entonces el ZX-81 contesta: ''no tienes suficiente dinero para 
hacer hablar al acusado””. 


Si el acusado ES el asesino entonces CONFIESA que lo és, si no lo es ésto es un dato para 
los demás jugadores y se habrá gastado dinero en balde. Cada movimiento dentro de la 
mansión consume una cierta cantidad de dinero. Tanto el SOBRE LACRADO como la 
ADIVINA siguen las mismas reglas expresadas para la visión. 


PUERTA (C): Crear una PUERTA IMPENETRABLE en el camino de los adversarios. 
Se ha de utilizar SOLO UNA PUERTA en total, por lo que se ha de disponer de ella en 
forma rotatoria por los jugadores. La puerta no debe durar más de una RONDA de tiradas 
(es decir el tiempo suficiente para que todos los jugadores hayan jugado 1 vez). Las reglas 
de la puerta son un convenio entre los jugadores pero deben ser de aplicación estricta en 
la parte final del juego (cuando la puerta es más importante). Como orientación se debe 
restringir su empleo a 3 veces por jugador y partida, utilizándose a partir de la 1? SOS- 
PECHA. Cada vez que se sitúa la puerta se consume cierta cantidad de dinero. VISION, 
MOVIMIENTO y PUERTA consumen un turno de movimiento. 


PLANO DE LA MANSION (T): Muy útil para conocer el camino más corto hasta una 
habitación. No consume dinero ni turno y se puede consultar antes de cualquier movi- 
miento u opción a realizar. 
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RESUMEN (R): Cuadro Resumen de jugadores, situación dentro de la mansión de los juga- 
dores y dinero del que disponen. Es muy útil para conocer situación y posibilidad de 
sospechar /acusar de los otros jugadores. No consume turno. 


SOSPECHAR (S): Se puede sospechar de ACUSADO, ARMA y PERSONAJE consecu- 
tivamente y el ZX-81 contesta si es correcto (se ganan 200 $ cada vez) o no (en cuyo caso no 
se puede seguir sospechando). Si las 3 sospechas son correctas y el jugador que sospecha 
se encuentra en la habitación del crimen se puede pasar a ACUSAR a continuación sin con- 
sumir turno. 


La sospecha consume 1 turno de juego. 


ACUSAR (A): Solo se puede acusar 1 vez por jugador en cada partida. Es aconsejable 
hacerlo después de confirmar las sospechas directa o indirectamente. En caso de FALLAR 
en su acusación, el jugador no puede seguir jugando en esa partida y la respuesta es un 
dato para los demás. Si se acierta se ganan 500 £. 


La ACUSACION consume 1 turno de juego. 

En cada movimiento del jugador existen una serie de advertencias relacionadas con la 
proximidad de la habitación del crimen y de la situación del arma o asesino. Advertencias 
útiles si se saben interpretar correctamente, para lo cual hace falta jugar varias veces. 
FINAL DEL JUEGO: Una partida termina cuando: 

1. Un jugador ACUSA correctamente. 

2%. Cuando todos los jugadores han acusado incorrectamente y no pueden seguir jugando. 
3%. Cuando todos tos jugadores se han quedado sin dinero para seguir jugando. 

4%. Cuando los jugadores o bien han acusado incorrectamente o se han quedado sin dinero. 
Una vez finalizada la partida el ZX-81 pregunta al ganador si quiere seguir jugando. Es 
interesante jugar varias veces (p.e. 5) para que exista un ganador que no sea fortuito. 
Cuando se juegan varias partidas el ganador es aquel que tiene mayor cantidad de dinero 
en ese momento. A igualdad de dinero gana aquel que haya ACUSADO correctamente más 
veces. 

CONDICIONES MAS ESTRICTAS: Se debe establecer que sólo se puede ADIVINAR 
desde la habitación donde está la adivina y abrir el SOBRE LACRADO desde la habitación 
donde se encuentra éste, manteniendo la visión del interior de esas habitaciones como 


información adicional. 


Este programa está al límite de capacidad de la memoria de 16 K. 
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PROGRAMA NUM. 21 


IGUA MANSION DE 
$ SE HA COMETIDO UN 


CRIMEN. 

LOS SOSPECHOSOS SON 6, LAS ARMAS 
POSIBLES SON 6 Y LAS HABITACIONES 
DONDE SE HAN PODIDO COMETER 
SON 20 

VUESTRA MISION ES AVERIGUAR 
QUIEN ES EL ASESINO, CON QUE AR- 


MA SE COMETIO EL ASESINATO Y EN 
QUE HABITACION SUCEDIO 

PARA LOS GASTOS DE LA INVESTIGA- 
CION DISPONEIS DE 500 LIBRAS 
APROVECHADLAS PARA LLEVAR A 
CABO LA INVESTIGACION 

ATENCION: HAY UNA HABITACION 
CON UN SOBRE LACRADO QUE CON- 
TIENE LA SOLUCION DEL CRIMEN, 
ASI COMO UNA ADIVINA QUE FACILI- 
TA CADA VEZ HABITACION, O ARMA, 
O ASESINO POR 200£ 


PLANO DE LA MANSION 


ACUSADO HABITACIONES ARMA 

1-MISS BLONDE LA ADIVINA 1-PISTOLA 
2-MISTER BLUE EL TESORO 2-DAGA 
3-SIGNOR BIANCO SOBRE LACRADO 3-PORRA 
4-MARISCAL VERDE 4- HACHA 
5-MADAME ROUGE 5-CANDELABRO 
6-HERR SCHWARTZ 6-CUERDA 


JUGADOR HABITACION DINERO 
1 4 500 

2 3 0 

3 19 0 

4 12 0 
ATENCION: 


LOS PASILLOS CONDUCEN A 1, 7, 11, 
ESTAS AHORA EN LA HABITACION 6 


DESEAS CREAR UNA PUERTA CERRA- 
DA, MOVERTE O QUIERES VER EL 
CONTENIDO DE UNA HABITACION? 
CONTESTA C/M/V 

QUIERES SOSPECHAR (S) o ACUSAR 
(A)? 

SI YA HAS REALIZAD 
SEGUIDAS, CONTES 
S1 SOLO QUIERES : 
TAR 

SI DESEAS VER EL 
SION, CONTESTA T 


JUGADAS 


1 REM ROOMS” 
7 DIM O(6) 
8 DIM D$(6) 
10 REM 
11 DIM M(4) 
12 LETM(1)=0 
13 LET M(2) =0 
14 LET M(3) =0 
15 LET M(4) =0 
20 DIM A(20) 
22 DIM D(4) 
27 DIM Y(4) 
30 PRINT TAB 8;”” 
50 GOSUB 9000 
60 GOSUB 8000 
61 GOSUB 8500 
62 PAUSE 400 
64 CLS 
66 GOSUB 7500 
68 GOSUB 7600 
69 CLS 
70 FORX=1T08 
80 GOSUB 7000 
90 NEXT X 
110 LETX=10 
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115 GOSUB 7000 

117 LETAD=R 

120 LETX =11 

125 GOSUB 7000 

130 LET SL =R 

140 LETX=0 

143 GOSUB 7000 

144 FORE=1T04 

145 GOSUB 7000 

147 LETY(E)=R 

148 IFE=2 AND Y(1) =Y(2) THEN LET 
Y (2) =Y(1)+1 

149 /F E=3 AND Y(1)=Y(3) OR Y(2) 
=Y(3) THEN LET Y(8) =Y(2)+1 

150 1F E=4 AND Y(1) =Y(4) OR Y(2) = 
Y(4) OR Y(3) =Y(4) THEN LET Y(4 
) =Y(8)+1 

151 1F. Y(E)j<i THEN LET Y(E)=1 

152 1F Y(E)>20 THEN LET Y(E)=20 

153 NEXT E 

155 GOSUB 7000 

156 LETC=R 

157 GOSUB 2500 

158 LETD=G 

159 GOSUB 2520 

160 GOSUB 1500 

162 LETO=H 

163 GOSUB 1520 

164 CLS 

168 LETL=0 

169 LETW=0 

170 LETK=0 

171 PRINT AT 1,5; 

172 PRINT AT 3,0; JUGADOR NUM. = 


> 


173 INPUT E 

174 LET M(E) = M(E) + 500 

175 PRINT AT 3,14;E 

176 GOSUB 1100 

177 1F E<1 OR E>4 THEN GOTO 174 

179 GOSUB 6000 

180 PRINT ''DESEAS CREAR UNA 
PUERTA CERRADA, MOVERTE O 
QUIERES VER EL CONTENIDO DE 
UNA HABITACION? CONTESTA L/ 
M/V” 

181 PRINT "QUIERES SOSPECHAR (S) 
O ACUSAR (A)?”" 

182 PRINT ''SIl YA HAS REALIZADO 

$ JUGADAS SEGUIDAS, CON- 

TESTA P” 
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183 PRINT '*SI SOLO QUIERES: 

CONTESTAR” 

184 PRINT "SI DESEAS VER EL 
] DE LA MANSION, CON- 
TESTA T” 

185 INPUT Q$ 

190 CLS 

191 1F Q$=”S'” THEN GOSUB 9700 

192 |F Q6$="A” THEN GOSUB 9850 

193 1|F Q$="R” THEN GOTO 175 

195 IF Q$=”P” THEN GOTO 170 

200 IF Q$=""V” THEN GOSUB 5000 

205 IF Q8=”"V*” THEN GOTO 240 

210 1F Q$=”C'” THEN GOSUB 4000 

2151F Q$="C” THEN GOTO 240 

220 |IF Q$="M” THEN GOSUB 3000 

225 1F Q$='"M” THEN GOTO 240 

226 IF Q$=”T" THEN GOSUB 8500 

227 PAUSE 400 

228 GLS 

230 GOTO 180 

240 IF A(Y(E)) =0 OR K=1 OR A(Y(E)) 
=10 OR A(Y(E)) =11 THEN GOTO 
280 

250 LET Z=Y(E) 

255 GOSUB 2000 

260 PRINT "NO ES EL ASESINO” 

270 GOTO 390 

280 IF M(E)>0 THEN GOTO 320 

290 PRINT "TE HAS QUEDADO SIN 

Dl ) Y NO PUEDES SEGUIR 

DO” 

310 GOTO 390 

315 PAUSE 400 

317 CLS 

320 IF W =0THEN GOTO 168 

325 PRINT 

330 PRINT — "EN 


340 PRINT 

350 PRINT.— "QUIERES INVESTIGAR 
OTRO ASESINATO? CON-TESTA 
SIN” 

360 INPUT Q$ 

370 |FQ$="*"S”* THEN CLS 

3751F Q$="”S'” THEN GOTO 50 

380 GOTO 999 

385 PRINT 

390 PRINT ” 


395 PRINT 

400 PRINT "QUIERES PAGAR 200€ Y 
SEGUIR JUGANDO? CONTESTA 
SIN” 

410 INPUT Q$ 

420 1F Q$=”"N” THEN GOTO 999 

430 IF Q8$="S” THEN LET M(E)=M 
(E) - 200 

435 1F Q$="S'” THEN GOTO 170 

999 PRINT 

1000 LET M(E) =M(E)-R 

1010 PRINT "HAS USADO”';R; 

1015 PRINT LIBRAS” 

1020 PRINT TE QUEDAN”;M(E);”LI- 
BRAS” 

1025 IF M(E)<=0 THEN GOTO 290 

1030 RETURN 

1100 CLS 

1110 PRINT "QUIERES UN RESUMEN 
DE JUGADORES Y DINERO?(S/N) 

1111 INPUT Q5 

11121F Q$=”S” THEN GOTO 1140 

1114 CLS 

1116 RETURN 

1140 CLS 

1150 PRINT AT 

1200 PRINT AT 3,0;”JUGADOR” 

1205 PRINT AT  3,8;”"HABITACION” 

1210 PRINT AT 3,20;DINERO”* 

1215 PRINT AT 4,8;” (7) me 

1220 PRINT AT 840 _(%__.”» 

1230 PRINT AT 4,20; ____» 

1247 PRINT AT 6,0;"1”:AT 6,8;Y(1); 
AT 6,20:M(1); 

1249 PRINT AT 8,0;"2”;¡AT 8,8;Y(2); 
AT 8,20;M(2); 

1251 PRINT AT 10,0;”3'”¡AT 10,8;Y(3); 
AT 10,20;M(3); 

1253 PRINT AT 12,0;4”;¡AT 12,8: Y(4):; 
AT 12,20;¡M(4 ); 

1255 PAUSE 400 

1257 CLS 

1260 RETURN 

1500 LETH=1+INT(RND*5) 

1501 DIM H$(6,14) 

1502 LET  H$(1)="” 

1503 LET  H$(2)= 

1504 LET  H$(3)= 


0,10; RESUMEN? 


1505 LET H$(4) =”" 

1506 LET HS(5) =" 

1507 LET H$(6) = AE 

1520 IF H =1 THEN PRINT HS(1) 

1525 RETURN 

1530 IF H=2THEN PRINT H$(2) 

1535 RETURN 

1540 IF H =3 THEN PRINT H$(3) 

1545 RETURN 

1550 IF H =4 THEN PRINT H$(4) 

1555 RETURN 

1560 IF H =5 THEN PRINT H$(5) 

1565 RETURN 

1570 IF H =6 THEN PRINT H$(6) 

1575 RETURN 

1800 CLS 

1820 PRINT "QUIERES CONOCER LAS 
SOLUCION DE TW , 

$5? (SIN)? 

1825 INPUT B$ 


1827 LET M(E) = M(E) — 200 
1828 PRINT 
1830 | ”s” THEN PRINT "LA 


Y NUM. .="j030 0” 
1832 PRINT 
1835 IF B5="'S” THEN PRINT "EL 
MA FUE ="'D;"" "¡GS(D);” 
1837 PRINT 


”s'”* THEN PRINT ”EL 


1840 1F B$= 
E FUE ="'0;” ¡H8(0);” 


1844 IF B$=""N” THEN PRINT ''NO” 
1846 IF B$=”N'” THEN PAUSE 200 
1850 1F — B$="N” THEN RETURN 
1852 PAUSE 400 

1854 CLS 

1860 RETURN 

2000 LET AA =(2000 + A(Z)*10) 

2005 GOTO AA 
2010 PRINT ” 
2013 LETS =30 
2016 RETURN 
2020 PRINT >” 
2023 LETS =25 
2026 RETURN 
2030 PRINT 
2033 LETS =20 
2036 RETURN 
2040 PRINT "A 
2043 LETS =28 


2046 RETURN 
2050 PRINT  ”'M 
2053 LETS =23 
2056 RETURN 
2060 PRINT — ”8 
2063 LETS =18 
2066 RETURN 
2070 PRINT G$(D) 
2072 LETS =22 
2076 RETURN 
2080 PRINT ”É 
2081 PRINT *'ACABAS DE GANAR 200f 
2082 LET M(E)=M(E) + 200 

2083 LETS =19 
2086 RETURN 
2100 PRINT *'£ 
2105 RETURN 
2110 PRINT ” 


2115 RETURN 
2500 LETG =1+INT(RND*5) 
2501 DIM G$(6,13) 


2502 LET  G$(1)=” NN 
2503 LET  G$(2)=”'UN: 
2504 LET G$(3) 


2505 LET G$(4) =”” 
2506 LET G$(5) =” 
2507 LET G$(6) = 
2510 |FG=1 THEN PRINT G$(1) 
2512 IFG=1 THEN LETS =24 
2515 IFG=1 THEN RETURN 
2520 IF G =2 THEN PRINT G$(2) 
2522 IFG=2THENLETS =24 
2525 IFG =2 THEN RETURN 
2530 1F G =3 THEN PRINT G$(3) 
2532 IFG =3THENLETS=24 
2535 IF G =3 THEN RETURN 
2540 IFG =4 THEN PRINT G5$(4) 
2542 IFG=4THENLETS=24 
2545 IFG =4 THEN RETURN 
2550 IF G =5 THEN PRINT G$(5) 
2552 IFG=5THENLETS=24 
2555 IF G =5 THEN RETURN 
2560 IF G =6 THEN PRINT G$(6) 
2562 IFG=6THENLETS=24 
2565 IFG=6 THEN RETURN 
3000 PRINT ”A QUE HABITACION 
QUIERES IR?” 
3005 INPUT P 


3010 IF Y(1)=P OR Y(2)=P OR Y(3)= 
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OR Y(4)=P THEN PRINT ”HA- 
BITACION YA OCUPADA” 

3017 LETF=0 

3018 PRINT 

3020 FOR!|=1T0O 4 

3030 IF D(I)=PTHENLETF=1 

3040 NEXT | 

3050 /|F P=0 OR F=0 THEN GOSUB 
6000 

3055 IFP=00R F=0 THEN GOTO 3000 

3060 IF C<>P THEN GOTO 3180 

3070 LET W =1 

3075 LETF=0 

3080 FORI=1T04 

3090 LET T=CODE A$(C*4-4+1 TO C* 
4-4+1)- 28 

3100 |F T=0 OR T=Y(E) OR T=L OR 
T=P THEN GOTO 3130 

3105 IF A(T)=10 THEN GOTO 3130 

3110 IF W =1 OR RND<.5 THEN LET 
C=T 

3120 LETW=0 

3125 IFA(T)=11 THEN LETF=1 

3130 NEXT | 

3140 ¡FW =1 THEN RETURN 

3155 IFF=0 THEN GOTO 3180 

3172 GOSUB 7000 

3175 LETC=R 

3178 GOTO 3060 

3180 LET Y(E)= 

3185 IF A(P) =0 THEN RETURN 

3190 IF A(P)<>11 THEN GOTO 3230 

3200 IF Y(E) =SL THEN PRINT '*ENHO- 
RABUENA, ESTA ES ES HAD 
TACION DEL SOBR:i es H 

3223 GOTO 1800 

3225 LET Y(E) = 

3228 RETURN 

3230 IF A(P)<>10 THEN GOTO 3300 

3240 LET R=INT (RND*20+ 20) 

3245 PRINT 

3250 IF Y(E)=ADORP=ADTHEN 
PRINT "LA ¿AR k ae PUEDE 
DECIR CUAL ES JON 
DEECRIMENPOR” 

3253 PRINT 10*R; 

3258 PRINT "LIBRAS.”; 

3259 PRINT 

3260 PRINT ''SI ESTAS DE ACUERDO 
ESCRIBES,SINON” 

3265 LETB=0 


3270 INPUT Q$ 

3271 PRINT 

3272 IF M(E)<200 THEN PRINT *NO 
TIENES SUFICIENTE DINERO” 

3273 IF M(E)<200 THEN PAUSE 200 

3274 |F M(E)<200 THEN RETURN 

3275 LET Y(E) = 

3276 IF Q$<>"S'” THEN GOSUB 6000 

3277 1F Q$<>"S'* THEN RETURN 

3278 PRINT '"'QUIERES CONOCER EL 
NUMERO DE HABITACION (C), EL 
ARMA (D), O EL NOMBRE DEL 
ASESINO (0)?”* 

3279 INPUT Q$ 

3280 IF Q$=""D”” THEN GOSUB 2521 

3281 IFQ$=""D” THEN CLS 

3283 IF Q$=”'D”” THEN GOTO 3291 

3284 IF Q$="”0" THEN GOSUB 1501 

3285 IF Q$=”"0"*” THEN CLS 

3287 IFQ$="*"0"” THEN GOTO 3293 

3288 IF Q$ ="*C*”* THEN PRINT ”CHISS.. 
.EL ASESINATO SE COMETIO EN 
LA H HO. 

3289 GOTO 3297 

3291 PRINT  ”EL 
FUE”*;D;"” *;G$(D) 

3292 GOTO 3297 

3293 PRINT EL ASESINO:FUE;0;” *; 
H$(0) 

3297 LET M(E) =M(E)-— (10*R) 

3300 GOAUN 1010 

3301 GOSUB 6000 

3302 LETK=0 

3303 LET Z=Y(E) 

3305 .GOSUB 2000 

3306 IF AA>2060 THEN RETURN 

3308 PRINT 

3310 PRINT "ESTA MUY NERVIOSA/O 


UTILIZADA 


3312 PRINT 

3313 PRINT "QUIERES HACERLE CON- 
FESAR SIESO NO EL ASESINO? (S 
IN)” 

3315 LETK=0 

3350 INPUT P$ 

3352 PRINT 

3354 IF P$="N” THEN PRINT NO” 

3355 IFP$=""N” THEN RETURN 

3356 IFP$="S” THEN PRINT Ss!” 

3362 PRINT 


3370 IF P$="”"S”' THEN PRINT **CANT!- 
DAD DE LIBRAS QUE EMPLEAS?”” 


3372 PRINT 

3375 INPUT R 

3376 PRINTR;"£” 

3377 PRINT 

3378 IF R>M(E) THEN PRINT '*NO TIE- 
NES TANTO DINERO” 

3379 IF Re£200 THEN PRINT *”'CANTI- 
DAD INSUFICIENTE PARA HACER 
CONFESAR AL ACUSADO” 

3380 PAUSE 200 

3382 IF M(E)<200 OR R<200 THEN GOTO 
180 

3385 IF R<200 OR R>M(E) THEN GOTO 
3370 

3390 CLS 

3393 GOSUB 2000 

3397 LETB=0 

3400 LETAL =RND 

3401 PRINT 

3402 IF P$=""S”? AND RANT (((2*% /3) + 
AL*(2*S)/3) THEN PRINT "ESTA 
DISPUESTO A NO HABLAR” 

3405 IFP$=""N" AND R>INT (((2*S/3) + 
AL *(2+5/3) THEN LET K =1 

3410 IF P$<>"S”* OR R<S + INT (AL*S*2) 
THEN GOTO 3430 

3415 IF H$(O)="'"” THEN PRINT **CON- 
FIESA QUE EL ES EL ASESINO” 

3420 PRINT 

3426 LETU=R 

3427 GOSUB 7000 

3428 LETR=U 

3442 IF K=0 AND A(Y(E))<>0 THEN LET 
B =INT (RND*8) 

3450 GOSUB 1000 

3455 IF B>2 AND M(E)>0 THEN GOTO 
3310 

2460 RETURN 

4000 PRINT "EN QUE HABITACION 
QUIERES SITUAR LA PUERTA IM- 
PENETRABLE?” 

4010 INPUT L 

4020 PRINT 

4030 IF L<1 OR L>20 THEN GOSUB 6000 

4035 IF L<1 OR L>20 THEN GOTO 4000 

4040 IF A(L)<>0 OR L=C THEN GOTO 
4080 

4050 PRINT "LA PUERTA IMPENETRA- 
BLE ESTA AHORA EN LA HABITA- 
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CION”*;L 
4070 GOTO 4110 
4080 PRINT ”*PON ATENCION: LA HA- 

BITACION ";L;” >; 

4085 LETL =0 

4090 PRINT "NO PUEDE CERRARSE.” 

4120 LET R =INT (RND *20 + 20) 

4130 GOSUB 1000 

4140 RETURN 

5000 PRINT "DE QUE HABITACION 
QUIERES LA VI-SION?” 

5010 INPUT P 

5020 LETF=0 

5030 FORI=1 TO 4 

5040 IF P =D(I) THENLETF=1 

5050 NEXT 1 

5060 IF P=0 OR F=0 THEN GOSUB 

6000 
5065 IFP=00RF=0THEN GOTO 5000 
5070 PRINT 
5080 IFP =SL THEN PRINT ”EN LA HA- 

BITACION””;P;' ESTA : 


> 


5081 PRINT 

5082 IF P=SL THEN PRINT "QUIERES 
ABRIR EL SOBRE?.SON 200f'” 

5084 INPUT Q$ 

5086 IF Q$=”S'' THEN GOSUB 1800 

5090 IF A(P)=0 THEN PRINT "EN LA 
HABITACION”';P;”"NO HAY NA- 
DIE” 

5095 IF A(P) =0 THEN GOTO 5130 

5100 PRINT "EN LA HABITACION”';P 

5110 LETZ=P 

5112 PRINT *"SE ENCUENTRA” 

5113 PRINT 

5115 GOSUB 2000 

5120 /1F AA=2100 THEN GOTO 3240 

5130 LET R=INT (RND*20 + 10) 

5135 PRINT 

5140 GOSUB 1000 

5150 RETURN 

6000 LETF =0 

6005 LET Q$ =”"1234” 

6010 FORI=1T0O4 

6020 LET D(I)=CODE A$(Y(E)"'4-4+1 
TO Y(E)*4-4+1!)- 28 

6025 IF D(I) =0 THEN GOTO 6040 

6030 LET F=F+A(D(I)-— (50*(D(I) =C)) 

6040 NEXT | 

6050 IF F=0 THEN GOTO 6170 
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6060 PRINT *'ATENCION:” 
6090 LET R=INT (RND*4 + 1) 


6095 IF Q$(R TO R)="” '"THEN GOTO 
6090 

6100 LETQOSRTOR)=” >” 

6103 IF D(R) =0 THEN GOTO 6150 


6105 LETT=A(D(R)) 

6110 IF D>0 OR D<3 THEN PRINT "EL 
ARMA ESTA CERCA” 

6120 IF 0>0 OR O<3 THEN PRINT EL 
ASESINO ESTA CERCA” 

6130 IF C>0 OR C<3 THEN PRINT "LA 
HABITACION DEL CRIMEN ESTA 
CERCA” 

6150 PRINT 

6170 PRINT "LOS PASILLOS CONDU- 
CENA”; 

6180 FORI=1T04 

6190 IF D(I)>0 THEN PRINT D(1);”.,”; 

6200 NEXT | 

6210 PRINT 

6220 PRINT ''ESTAS AHORA EN LA HA- 
BITACION ';Y(E); 

6221 PRINTTAB 29; "9 _» 

6225 PRINT 

6230 RETURN 

7000 LET R=INT (RND*19+ 1) 

7005 IF A(R)>0 THEN GOTO 7000 

7010 LET A(R)=X 

7020 RETURN 

7500 CLS 

7502 PRINT AT 0,8;””: 

7503 PRINT AT 


3,0; "ACUSADO"; 
7504 PRINT AT 4,0; IA 


7510 PRINT AT ES BLONDE” 

7520 PRINT AT 7,0;'"3-MISTER BLUE” 

7530 PRINT AT 8,0;""SIGNOR BIANCO” 

7540 PRINT AT 9,04MARISCAL VERDE 

7550 PRINT AT 10,0;""5-MADAME ROU- 
GE” 

7560 PRINT AT 11,0;''6-HERR SCHWA- 
RTZ” 

7570 PRINT 

7575 RETURN 

7600 PRINT AT 11,18; ARMA”; 

7603 PRINT AT 12,18;” (12) dd 

7604 PRINT 

7605 PRINT AT 18;''1-PISTOLA” 

7610 PRINT TAB 18;''2-DAGA”" 


7620 PRINT TAB 18;”3-PORRA ” 

7630 PRINT TAB 18;”4- HACHA” 

7640 PRINT TAB 18;”5-CANDELABRO” 
7650 PRINT TAB 18;”6-CUERDA” 

7660 PRINT AT 14,0;”HABITACIONES” 
TO PRINTA3O 15:00 =——PAAE 
7775 PRINT AT 17,0;"LA ADIVINA” 
7780 PRINT AT 18,0;”EL TESORO” 
7785 PRINT AT 19,0;'"SOBRE LACRADO 
7790 PAUSE 800 

8000 FORI=1TO 20 

8010 LET A(I) =0 

8020 NEXT | 

8030 RETURN 

8500 CLS 

8510 FOR |=1TO 22STEP 5 

8515 FORJ=3T0O 13 
8520 PRINT AT 0,3;” 


8522 PRINT ATI, 1" pa 


8526 NEXT J 

8528 NEXT 1 

8530 PRINT AT 3,)2:"—_)_____ 
8535 PRINT AT 8,2;” (20) 

8540 PRINTAT13,2; _0_______ 


8545 PRINTAT18,2;" —_Y_____ 


8550 PRINT AT 20,7;*% 
8600 PRINT ESTE e E 


21% 3 

8602 PRINT AT 2,13" — "¡AT 2,6;” 
Ad AT 
AT 

8604 PRINT AT 4,1; — "¡AT 4,6, "— 
Ad ATA: 
Ara 

8610 PRINT AT 8 
AT 8,11;' 

21:88" 

8612 PRINTAT7,13"__"¡AT7,6"__ 
o A E 
AT7,213 — ” 

8614 PRINTAT9,1;'" — ”;AT 9,6,” — 
A A 
AT 9,21" — ” 


8620 PRINT AT 13,1;"B"¡AT 13,6; 


AT 13,11/%8'"¡AT 13,16;'9"¡AT 13, 
a : 

8622 PRINT AT 12,13" —";¡AT 12,6;" 
— "¡AT 12,11; — "¡AT 12,16;” 
AT 122170 = " 

8624 PRINTAT 14,1; — "¡AT 14,6;” 

—”¡AT 14,113” — "¡AT 14,16;" 
AT1,2177 —” 


8630 PRINT AT 18,1; 


AT 18,118 ¡AT 18,16; 4'¡AT 
2105 

8632 PRINTAT 17,1; ”— "¡AT17,6;” 

= "¡AT 17,113” — "¡AT 17,16;” 

—"":AT17,21;" A 

8634 PRINT AT 19,1; _ ¡AT 19,6;” 
—'"*¡AT 19,11; — "¡AT 19,16;” 
—”" ¡AT 19,21," — ” 


8700 RETURN 

9000 LET A$="*"26001370248035904A00” 

9010 LET A$=A$+''1780268C379D48 
AE59FO” 

9020 LET AS=A$+”'6CGO07BDH8CEI 
9DFJAEKO” 

9030 LET A$S=AS+''BHOOCGIODHJOEI 
KO0FJOO* 

9040 RETURN 

9700 CLS 

9710 PRINT AT 0,10; S0SPES: 

9720 PRINT AT 3,0;'"DE CUAL DE LOS 
PERSONAJES SOSPECHAS?” 

9722 GOSUB 1500 

9724 GOSUB 7500 

9726 INPUT AQ 

9728 IF Q=0 THEN PRINT "E 
¡FUE '';¡H$(0) ;'” QUIEN COMETIO 
EL ASESINATO” 

9730 IF Q=0 THEN LET M(E) = 
200 

9732 IFQ=0 THEN PAUSE 100 

9734 IFQ=0 THEN CLS 

9736 1F Q<>0 THEN PRINT ''NO ES CO 
RRECTO”” 

9738 IF Q<>0 THEN GOTO 9790 

9739 IF Q<>0 THEN PAUSE 100 

9740 GOSUB 2500 

9750 CLS 

9756 PRINT AT 5,0;"CON QUE ARMA 
SE COMETIO EL CRIMEN?” 

9757 GOSUB 7600 

9758 INPUTOQ 

9759 PAUSE 100 


M(E) + 
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9760 IF Q=D THEN LET M(E)= 
200 

9761 IF Q=D THEN PRINT >” 
FO: EL ARMA UTILIZADA FUE”; 
G$(D); 

9762 PAUSE 100 

9763 IF Q<>D THEN PRINT NO ES CO- 
RECTO” 

9764 IF Q<>) THEN GOTO 9790 

9765 IF Q0<>D THEN PAUSE 100 

9767 IFQ=D THEN CLS 

9768 PRINT ''EN QUE HABITACION SE 
COMETIO EL CRIMEN?” 

9769 PAUSE 100 

9770 GOSUB 8000 

9775 PAUSE 100 

9780 INPUT Q 

9781 IFQ=C THEN LET M(E) = 
00 

9782 IFQ=CTHEN PRINT **£ ; 
: EL ASESINATO SE COMETIO EN 
LA HABITACION ”;C; 

9783 IF Q0<>C THEN PRINT "NO ES CO- 
RECTO” 

9784 |F Q<>C THEN GOTO 9790 

9785 PAUSE 100 

9786 IFQ=CTHENCLS 

9787 PRINT— "QUIERES 
(SIN)” 

9788 INPUT Q$ 

9790 PAUSE 100 

9791 IF Q$=”S” THEN PAUSE 100 

9792 IF Q$=”S'” THEN GOSUB 9850 

9793 CLS 

9800 RETURN 

9850 CLS 

9860 PRINT AT 0,10;” 

9865 PRINT AT 3,0;'"DE CUAL DE LOS 
PERSONAJES SOSPECHAS?” 

9885 INPUT Q1 

9890 PRINT AT 5,0;'"'CON QUE ARMA 
SE COMETIO EL CRIMEN?” 

9910 INPUT Q2 

9915 PRINT "EN QUE HABITACION SÉ 
COMETIO EL CRIMEN?” 

9935 INPUT Q3 

9937 IF Q1=0 AND Q2=D AND Q3=C 
THEN GOTO 330 

9938 IF Q1%£0 AND Q2=D AND Q3=C 
THEN LET  M(E)=M(E)+ 2000 

9940 PAUSE 400 


M(E)+ 


M(E) +2 
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9942 GOTO 390 

9945 CLS 

9950 RETURN 

9990 SAVE ROOMS” 
9999 GOTO 1 


Programa Num. 22 '*"MINOTAURO”” 


SENOS SER EL VENCEDOR DEL 


Mm 


EL OBJETIVO DEL JUEGO ES A 
Mi o 


CAVERNA 


LA CAVERNA DEL MIA QRO 

TRES NIVELES. CADA UNO DE LOS NI- 
VELES ES UN PLANO COORDENADO. 
FUERA DE LOS TRES NIVELES, El 
RESTO DE LA CAVERNA ESTA VACIO 
EN CADA PLANO LAS COORDENADAS 
a EXTIENDEN DE (- 10)A (+10). LOS 


OS: 
BARRERAS 


DENTRO DE LA CAVERNA HAY 10 Pi- 
EARES ELE CADOS ATRAVE- 
SANDO LOS TRES NIVELES. 

ELLOS DESTRUIRAN CUALQUIER COSA 
QUE LES TOQUE. 


LAS TRAMPILLAS APARECEN EN 
CUALQUIER SITIO Y DE FORMA IM- 
PREVISTA. 

SI ENTONCES TE ENCUENTRAS EN EL 
NIVEL YNO, ENTONCES PIERDES. 


EMBESTIDA DEL MIN 


JRO 


EL MINOTAURO CARGARA CONTRA TI 
SI LE! RES CON TU“ ¿A. TAM- 
BIEN CARGARA CONTRA Tl SIN RA- 
ZON ALGUNA 
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ESTOS SON TUS POSIBLES 
MIENTOS 

1.- MOVERTE HACIA EL ESTE 
2.-- MOVERTE HACIA EL OESTE 
3.- MOVERTE HACIA EL NORTE 
4.- MOVERTE HACIA EL SUR 
5.-SUBIENDO DE NIVEL 
6.-BAJANDO DE NIVEL 
7.-LANZANDO TULANZA 
8.-CONSULTANDO UN PLANO 
"QUE TE DIVIERTAS”” 

AHORA COLOCARE LAS BARRERAS 


MOVI- 


BARRERA 1: (1, — 5). 
BARRERA 2: (- 4,8). 
BARRERA 3: (0,10). 
BARRERA 4: (5, - 8). 
BARRERA 5: ( - 6,8). 
BARRERA 6: (- 3,8). 
BARRERA 7: (10,6). 
BARRERA 8: (- 4,- 1). 
BARRERA 9: (8,5). 
BARRERA 10: (2, - 4). 


EN QUE NIVEL QUIERES SITUARTE? 
EN QUE PUNTO ?2 (X,Y) (- 4,7) 


CUANTA DISTANCIA QUIERES AVAN- 
ZAR EN CADA MOVIMIENTO? 2 


JUGADA 1. EL MINOTAURO ESTA EN 
(1,4), DEL NIVEL 1. 

FUNCIONES DE CONTROL 

QUE NIVEL? 

1 


US] 
o 
m 


1] 
a] 


TOS 1i 12245975 


Go pu 


+ + 
+ e 


ne 

O AS 
7 

É 

2 

y 

ii. 

Z 

Dre AAA ; 
A 
AAA 
A o 
TAE AA EFELELES 
e e += E 
E cd da o a 


198765432186123450789 


JUGADA 1. EL MINOTAURO ESTA EN 
(6, — 2), DEL NIVEL 1. 

FUNCIONES DE CONTROL 

TU ESTAS EN (7,5), EN EL NIVEL 2. 


YAAAAAAAAH. CAES AL NIVEL INFE- 
RIOR PORLA TRAMPILLA 


JUGADA 3. EL MINOTAURO ESTA EN 
(7,-—2), DEL NIVEL 1. 

FUNCIONES DE CONTROL 

TU ESTAS EN (5,5), EN EL NIVEL 1. 


JUGADA 5. EL MINOTAURO ESTA EN 
(6, —- 2), DEL NIVEL 1. 

FUNCIONES DE CONTROL 

TU ESTAS EN (7,5), EN EL NIVEL 1. 


JUGADA 7. EL MINOTAURO ESTA EN 
(6, —- 1), DEL NIVEL 1. 


1 REM”'"MINO” 
6 PRINT (256*PEEK 16405 + PEEK 
16404-16384)/1024 
8 PAUSE 200 
10 CLS 
90 LEY S1=0 
92 LETS2=0 
94 LETS3=0 


100 PRINT TAB  8;""MIN 

110LETT=0 

160 LEY L1 =INT (RND*3)+1 

170LET X1=INT  (RND*(- 19) +11 

180 LET Y1=INT — (RND*(- 19) +11 

190 DIM C(15) 

195 DIM B(15) 

200 GOSUB 1350 

210 REM INSTRUCCIONES 

220 GOSUB 1660 

230 REM BARRERAS 

240 GOSUB 2330 

250 REM SITUACION JUGADOR 

260 GOSUB 2420 

270 REM COMIENZA EL JUEGO 

280 REM LANZA 

290 IF X2=S1 AND Y2=S2 AND L2=83 
AND T>1 THEN GOTO 3690 

300 REM ESTA (EL) COMIENDO? 

310 IF X1=X2 AND Y2=1 AND L1 =1L2 
THEN GOTO 3670 

320 REM CARGANDO 

330 IF RND*<1 THEN GOTO 2850 

340 REM JUGADA 

350 LETT=T+1 

360 PRINT "JUGADA”';T;”.EL MINO- 
TAURO ESTA EN (;X1;”,",Y1;”), 
DEL NIVEL**;L1;”.” 

370 PRINT "FUNCIONES DE CON- 
TROL” 

380 INPUT z 

381 LETT=T+1 

382 IF Z=1 THEN GOTO 400 

384 IF Z=2 THEN GOTO 430 

386 IF Z=3 THEN GOTO 450 

388 IF Z=4 THEN GOTO 480 

390 IF Z=5 THEN GOTO 500 

392 IF Z=6 THEN GOTO530 

394 IF Z=7 THEN GOTO 550 

396 IF Z=8 THEN GOTO 3270 

400 LETX2=X2+F 

410 IF ABS (X2)>10 THEN GOTO 1160 

420 GOTO 1180 

430 LETX2=X2-F 

440 GOTO 410 

450 LETY2=Y2+F 

460 IF ABS (Y2)>10 THEN GOTO 1160 

470 GOTO 420 

480 LETY2=Y2-F 

490 GOTO 460 

500 LETL2=L2+1 


LURO" 


510 IF L2>3 OR 12<1 THEN GOTO 1330 

520 GOTO 420 

530 LET L2=L2-1 

540 GOTO 510 

550 REM ARROJANDO LA LANZA 

560 IF Li<>L2 THEN GOTO 1080 

570 IF X1<>X2 AND Yi<>Y2 THEN GO- 
TO 1100 

580 IF Xi<>x2 AND ABS (Y1-Y2) 
THEN GOTO 1120 

590 IF ABS (X1-X2)>10 THEN GOTO 
1120 

600 IF S9 =1 THEN GOTO 3720 

610 PRINT "EN QUE DIRECCION 
QUIERES ARROJAR TU LANZA? 
(USA 1, 2, 3, 4)” 

620 INPUT H1 

625 PRINT H1 

630 PRINT ”'A QUE DISTANCIA?””; 

640 INPUT H2 

645 PRINT H2 

650 LET S5=X2 

660 LET S6 =Y2 

670 FORB=1T0O H2 

680 IF H1 =1 THEN GOTO 690 

682 IF H1 =2 THEN GOTO 720 

684 IF H1 =3THEN GOTO 740 

685 IF H1 =4 THEN GOTO 770 

690 LET 55 =8S5+1 

700 IF ABS (S5)>10 THEN GOTO 860 

710 GOTO 790 

720 LET S5 =S5-1 

730 GOTO 700 

740 LET S6 =56- 1 

750 1F ABS (S6)>10 THEN GOTO 860 

760 GOTO 790 

770 LET S6 =S6- 1 

780 GOTO 750 

790 PRINT "LA LANZA ESTA EN(??;S5; 
2, 0556,).” 

800 REM TEST PARA LAS 10 BARRE- 
RAS 

810 FORA =1 TO 10 

820 IF S5=B(A) AND S6 =C(A) THEN 
GOTO 850 

830 NEXT A 

840 GOTO 870 

850 PRINT "TU LANZA HA CHOCADO 
CONTRA LA BARRERA”;A;'"Y SE 
HA PARTIDO.” 

860 GOTO 1140 
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870 NEXT B 

880 IF S5<>X1 OR S6<>Y1 THEN GOTO 
1010 

890 LET X =INT (RND*3)+1 

900 IF X =1 THEN GOTO 910 

902 IF X =2 THEN GOTO 1010 

904 IF X =3 THEN GOTO 1070 

910 PRINT HAS MATADO AL MIN 

O EN”;T; JUGADAS.” 

920 GOTO 1450 

930 PRINT "QUIERES JUGAR OTRA 
VEZ?”; 

940 INPUT X$ 

942 PRINT X$ 

945 CLS 

950 IF X$<>'SI”” THEN GOTO 3760 

960 LETT=0 

970 LET L1 =INT(RND*3)+1 

980 LET X1=INT  (RND*(-19))+11 

990 LET Y1=INT — (RND*(-19))+11 

1000 GOTO 230 

1010 PRINT HAS ERRADO EL TIRO TU 
LANZA ESTA EN ('?;85;”,':S6;””). 
Y DEBES RECUPERARLA.” 

1020 LET S1=S5 

1030 LET 82=S6 

1040 LET S3=L2 

1050 LET S9=1 

1060 GOTO 280 

1070 GOSUB 2840 

1080 PRINT "NO ESTAS EN EL MISMO 
NIVEL. NO PUEDES LANZAR LA 
LANZA.” 

1090 GOTO 420 

1100 PRINT "NO ESTAS EN EL MISMO 
CUADRADO Y LINEA. NO PUE- 
DES LANZARLA.” 

1110 GOTO 420 

1120 PRINT "NO ESTAS A MENOS DE 
10. NO PUEDES LANZARLA.” 

1130 GOTO 420 

1140 PRINT "AHORA ESTAS DESAR- 
MADO Y PIERDES, ESTUPIDO” 

1150 GOTO 930 

1160 PRINT "AAAAAAAAAAAH. CAES 
AL VACIO POR EL BORDE” 

1170 GOTO 1150 

1180 PRINT TU ESTAS EN (*;X2;”,”; 
Y2;") EN El: NIVEL”;¿L2;”.” 

1190 REM TEST PARA LAS BARRERAS 

1200 FORA=1T010 
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1210 IF X2=B(A) AND Y2=C(A) THEN 
GOTO 1240 

1220 NEXT A 

1230 GOTO 1260 

1240 PRINT *"TE HAS ELECTROCUTA- 
DO AL TOCAR UNA DE LAS BA- 
RRERAS ELECTRIFICADAS.” 

1250 GOTO 1150 

1260 REM TRAMPILLAS 

1270 LET X =INT(RAND*10) +1 

1280 IF X =5 THEN GOTO 1300 

1290 GOTO 2510 

1300 PRINT "YAAAAAAAAH. CAES AL 
NIVEL INFERIOR POR LA TRAM- 
PILLA”” 

1310 LET L2=L2-1 

1320 IF L2>0 THEN GOTO 1290 

1330 PRINT ”"CAES FUERA DE LA CA- 
VERNA Y PIERDES” 

1340 GOTO 1150 

1350 PRINT AT 3,0;”"QUIERES SER EL 
VENCEDOR DEL ¿MiB Ro?”; 

1360 INPUT D$ 

1365 PRINT TAB 10;D$ 

1370 IF D$<>"SI'* THEN GOTO 1440 

1380 LET C2 =20 

1390 PRINT AT 7,0;"PARA ESTO DE- 
BES ALCANZAR UNA PUNTUA- 
CION DE 22” 

1391 DIM E$(72) 

1419 DIM G$(72) 

1430 PAUSE 200 

1435 CLS 

1440 RETURN 

1450 IF D$<>"SI”* THEN GOTO 930 

1455 IFT=0THENLETT =1 

1460 LET C3 =(1/T)*100 

1470 IF C3<20 THEN GOTO 1630 

1480 PRINT "AHORA YA ERES TODO 


1620 GOTO 30 

1630 PRINT *”'LO SIENTO. NE HAS PO- 
DIDO LLEGAR A SER UN CAM- 
PEON” 

1640 PRINT ''QUIERES JUGAR OTRA 
VEZ?” 

1650 GOTO 940 

1660 REM INSTRUCCIONES 

1730 PRINT 

1740 Ea "QUIERES LEER LAS INS+ 

NES?” 


1760 INPUT X$ 

1765 PRINT X$ 

1770 1F X$<>"SI” 

1775 PAUSE 200 

1780 CLS 

1795 PRINT — TAB 

1797 PRINT 

1798 PRINT 

1800 PRINT EL OBJETIVO DEL JUEGO 
ES 4 

1820 PRIN 

1830 PRINT 

1832 PRINT 

1836 PRINT 

1837 PRINT 

1840 PRINT "LA CAVERNA DEL Mi 


THEN GOTO 2320 


8; "MIN: no” 


TIENE 
CADA UNO DE LOS NIVELES ES 
UN PLANO COORDENADO.”” 


1850 PRINT "FUERA DE LOS TRES NI- 
VELES, EL RESTO DE LA CAVER- 
NA ESTA VACIO” 

1860 PRINT "EN CADA PLANO LAS 
COORDENADASSE EXTIENDEN 
DE (-10) A (+10). LOS EJÉ 
VIDEN AL PLANO EN ¿ 

1890 PRINT 

1900 PAUSE 400 

1910 CLS 

1940 PRINT 

1950 PRINT 

1955 PRINT 

1960 PRINT Bj 

1965 PRINT 

1970 PRINT "DENTRO DE LA CAVER- 

AY 10 1 

$ ATRAVESANDO LOS TRES 
NIVELES.” 

1980 PRINT "ELLOS  DESTRUIRAN 
CUALQUIER COSA QUE LES TO- 
QUE.” 

2010 PRINT 

2020 PRINT 

2025 PRINT 

2030 PRINT "LAS TRAMPILLAS APA- 
RECERAN EN CUALQUIER SITIO 
Y DE FORMA IMPREVISTA.” 

2050 PRINT "SI ENTONCES TE EN- 
CUENTRAS EN EL NIVEL HNG 
ENTOCES PIERDES.” 

2060 PRINT 


ZONAS” 


2065 PAUSE 300 
2067 CLS 
2070 PRINT "El 


UY 


2071 PRINT. 


CONTRA TI SIN RAZON ALGUNA” 

2100 PAUSE 200 

2105 CLS 

2110 PRINT 

2130 PRINT "ESTOS SON TUS POSI- 
BLES MOVIMIENTOS” 

2140 PRINT ”1.-MOVERTE HACIA EL 
ESTE” 

2150 PRINT ”2.-MOVERTE HACIA EL 
OESTE” 

2160 PRINT *'3.-MOVERTE HACIA EL 
NORTE”” 

2170 PRINT *'4.- MOVERTE HACIA EL 
SUR” 

2180 PRINT ””5.-SUBIENDO DE NIVEL” 

2190 PRINT ”6.-BAJANDO DE NIVEL” 

2200 PRINT *'7.-LANZANDO TU LANZA 

2210 PRINT 
PLANO” 

2220 PRINT 

2270 PRINT ''QUE TE DIVIERTAS.” 

2300 PAUSE 300 

3210 CLS 

2320 RETURN 

2330 REM BARRERAS 

2340 PRINT "AHORA COLOCARE LAS 
BARRERAS” 

2343 FAST 

2345 PRINT 

2350 FORA =1TO10 

2360 LET B(A)=INT (RND*(-19)+11 

2370 LET C(A)=INT (RND*(-19)+11 

2380 PRINT "BARRERA''A;”:(”;B(A); 
"5 C(A);)." 

2383 NEXT A 

2385 PAUSE 300 

2387 CLS 

2400 PRINT 

2410 RETURN 

2420 REM SITIO DEL JUGADOR 

2425 CLS 

2430 PRINT ''EN QUE NIVEL QUIERES 


”"8.-CONSULTANDO UN 
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SITUARTE?”>; 

2440 INPUT L2 

2445 PRINT 

2450 PRINT "EN QUE PUNTO?(X,Y)”; 

2455 INPUT X2 

2460 INPUT Y2 

2465 PRINT;"(X2;%, 2%)” 

2467 PRINT 

2470 PRINT— "CUANTA DISTANCIA 
QUIERES AVANZAR EN CADA 
MOVIMIENTO?”; 

2480 INPUT F 

2485 PRINTF 

2490 PRINT 

2495 PAUSE 300 

2496 CLS 

2500 RETURN 

2510 REM MOVIMIENTO DEL MINO- 
TAURO 

2520 LETD=X1 

2530 LETE =Y1 

2540 LET L4 =L1 

2550 LET X3 =INT (AND *6) + 1 

2552 IF X3 =1 THEN GOTO 2570 

2554 1F X3 =2 THEN GOTO 2620 

2556 IF X3=3 THEN GOTO 2640 

2558 IF X3 =4 THEN GOTO 2690 

2560 IF X3=5 THEN GOTO 2710 

2562 IF X3 =6 THEN GOTO 2760 

2570 LET X1=X1+1 

2580 IF ABS (X1)>10 THEN GOTO 2600 

2590 GOTO 2780 

2600 LET X1=0D 

2610 GOTO 2550 

2620 LET X1 =X1-—1 

2630 GOTO 2580 

2640 LET Y1=Y1+1 

2650 IF ABS (Y1)>10 THEN GOTO 2670 

2660 GOTO 2780 

2670 LETY1=E 

2680 GOTO 2550 

2690 IF X1=B(A) AND Y1=C(A) THEN 
GOTO 2550 

2700 GOTO 2650 

2710 LETL1 =L1+1 

2720 IF L1>3 OR L1<1 THEN GOTO 2740 

2730 GOTO 2780 

2740 LET L1 =L4 

2750 GOTO 2550 

2760 LET L1 =L1-1 

2770 GOTO 2720 
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2780 FORA =1 TO 10 

2790 IF X1=B(A) AND Y1i=C(A) THEN 
GOTO 2550 

2800 NEXT A 

2810 PRINT 

2820 GOTO 280 

2830 PRINT 

2840 PRINT "HAS HERIDO AL MINO- 
TAURO” 

2850 PRINT "EL MINOTAURO ESTA 
CARGANDO CONTRA TI” 

2855 PRINT 

2860 IF X1>X2 THEN GOTO 2890 

2870 LET X3=1 

2880 GOTO 2910 

2890 LET X3 = — 1 

2900 GOTO 2910 

2910 1F Y1>Y2 THEN GOTO 2940 

2920 LET Y3=1 

2930 GOTO 2960 

2940 LET Y3=-1 

2950 GOTO 2960 

2960 IF L1>L2 THEN GOTO 2990 

2970 LETL3=1 

2980 GOTO 3000 

2990 LETL3=-1 


3000 IF L1 =L2 THEN GOTO 3050 

3010 LETL1=1L1+3 

3020 PRINT ""NIVEL**;L1;””” 

3030 GOTO 3000 

3040 REM 

3050 IF X1 =X2 THEN GOTO 3100 

3060 LET X1 =X1 +X3 

3070 GOSUB 3140 

3080 PRINT *(9X1;,3Y13)” 

3090 GOTO 3050 

3100 IF Y1 =Y2 THEN GOTO 3210 

3110 LET Y1=Y1+Y3 

3120 GOSUB 3140 

3130 GOTO 3080 

3140 FORP =1T0O0 10 

3150 IF B(P)=X1 AND C(P)=Y1 THEN 
GOTO 3180 

3160 NEXT P 

3170 RETURN 

3180 PRINT ”BZZZZZZZZOWNT. EL 
MINOTAURO SE HA ELECTROCU- 
TADO AL TOCAR UNA DE LAS BA- 
RRERAS.” 

3185 PRINT 


3190 PRINT” 

3200 GOTO 1450 

3210 PRINT ''MUERDE” 

3220 PRINT '*MASTICA”” 

3230 PRINT "”TRITURA”” 

3240 PRINT ''ENGULLE”” 

3245 PRINT 

3250 PRINT ?* 
DO.” 

3260 GOTO 930 

3270 PRINT "QUE 

3280 INPUT L4 

3282 PRIN TL4 

3284 PAUSE 200 

3285 CLS 

3290 FORE=9TO'-9STEP —1 

3300 FORD=-9 TO9 

3310 IF D=X2 AND E=Y2 AND L4=L2 
THEN GOTO 3410 

3320 IF D=X1 AND E=Y1 AND L4=L1 
THEN GOTO 3430 

3330 IF L4=S1 AND E=S2 AND L4=S3 
THEN GOTO 3450 

3340 FORA =1T010 

3345 PRINT AT C(A)+10,B(A)+10;'"H” 
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3350 1F B(A)=D AND C(A)=E THEN 
GOTO 3480 

3360 NEXT A 

3370 1F D=0 AND E=0 THEN GOTO 
3500 

3380 IFD=00RE=0 THEN GOTO 3520 

3390 PRINT AT E,D;”'+”'¡AT E+10,D;” 
+ "¡AT E,D+10;”+'”;¡AT E+10, 
D+10; +”; 

3400 GOTO 3530 

3410 PRINT AT Y2+10,X2+10;* 

3420 GOTO 3400 

3430 PRINT AT Y1+10,X1+10;*'M 

3440 GOTO 3400 

3450 IF S9 =0 THEN GOTO 3340 

3460 PRINT AT  S6+10,85+10;'BP'; 

3470 GOTO 3400 

3480 PRINT AT 

3490 GOTO 3400 

3520 PRINT AT E,10;" MH ''¡AT E+10,10; 
"EH ¡AT E,0;10- ABS E;¡AT E+10, 
O;¡ABSE 

3525 PRINT AT 10,D;'* 5 '';AT 10,D+10; 
**m'';AT 20,D;¡ABS (D-10);¡AT 20, 
D+10;ABS D;¡AT 0,D;ABS (D - 10); 
ATO,D+10;¡ABSD 


E+10,D+10; E” 


3527 PRINT AT 10,10;'*0'”;AT 8,0;**2””; 
AT 7,0;'*3'*;6,0;'"'4'*;AT 10,0; -”; 
AT 10,19; +”” 

3530 NEXT D 

3540 PRINT 

3550 NEXT E 

3560 PRINT 

3570 PRINT AT 0,21;”4 

3580 PRINT AT 2,21; 

3585 PRINT 

3590 PRINT AT 4,21;”T =TU” 

3600 PRINT AT 5,21;""M =MINOTAU”” 

3610 PRINT AT 6,21; L=LANZA” 

3620 PRINT AT 7,21;""B=BARRERA” 

3640 PRINT AT 8,21; MW =EJES”” 

3650 PRINT 

2655 PAUSE 600 

3658 CLS 

3660 GOTO 2510 

3670 PHINT "EL MINOTAURO SE DIRI- 
GE HACIA Tl. DICE QUE LE EN- 
CANTA COMER CARNE HUMA- 
NA” 

3680 GOTO 390 

3690 PRINT— "TIENES TU 

3700 LETS9=0 

3710 GOTO 300 

3720 PRINT **COMO PUEDES LANZAR 
OTRA VEZ TU LANZA SI SOLO 
TIENES UNA?” 

3740 GOTO 420 

3760 STOP 
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9000 REM SUB MAPA 

9010 REM '*ESTA SUBRUTINA FUNCIO- 
NA MAL” 

9020 FAST 

9040 PRINT AT 0,2;'*98765432 
789” 

9050 FOR! =2T0 20 

9060 FOR J=2T0 20 

9070 IF I<11 THEN PRINT AT 1,0;11 

9075 PRINT AT 11,0;” -—”” 

9080 IF l>t1 THEN PRINT AT 1,0;1- 11 

9090 FORA =1T0 10 

9100 PRINT AT 1,3; +” 

9110 PRINT AT 11,4; BAT 1,432”; 


AT 21,43" m" 
9120 PRINT AT 1,11" '5AT 1,1134; 
AT 1,21" E” 


9130 LET E =1-11 

9140 LETD=J-11 

9150 PRINT AT ABS C(A) + 11,B(A)+ 11; 
"g> 

9160 NEXTA 

9340 PRINT AT ABS Y1+11,X1+11;” 


9350 PRINT AT 11+ABS Y2,11+X2;”* 
9360 NEXT y 
9370 PRINT AT 1,1; "¿AT 1,217 6; 


9380 NEXT I 

9400 RETURN 

9990 SAVE ''MINOTAUREF” 
9999 GOTO 1 


(Prog. 23) 
”CUBO”” DE RUBIK 


ESTE PROGRAMA CONSISTE EN DOS 
PARTES. UNA PARA INTRODUCIR LA 
POSICION, Y OTRA PARA HACER” EL 
CUBO. 

PARA INTRODUCIR EL CUBO VERA 
VD. UN DIAGRAMA QUE LE MOSTRA- 
RA QUE COLOR INTRODUCIR EN EL 
SIGNO ”?” INTERMITENTE. 

DE VD. LA LETRA DEL COLOR SEGUN 
LA TABLA SEGUIENTE:- 

ROJO =R(RED) 

VERDE =G(GREEN) 

AZUL =B(BLUE) 

AMARILLO =Y(YELLOW) 

BLANCO =W(WHITE) 

ANARANJADO =O(ORANGE) 


CASO DE EQUIVOCARSE DE 0” PA- 
RA RETROCEDER DA **C”* PARA CON- 
TINUAR 


CUBE MASTER 


EN LA SEGUNDA PARTE LA MAQUINA 
LE DIRA CUAL DE LAS 6 CARAS DEL 
CUBO HABRA DE MOVER BIEN SEA A 
DERECHAS O A IZQUIERDAS. TODOS 
LOS GIROS SON DE NOVENTA GRA- 
DOS. 


TRAS HABER HECHO EL GIRO, ESPE- 
RE A QUE APAREZCA EL MENSAJE: 
*”"DE N/L”. ENTONCES PODRA RECI- 
BIR EL SIGUIENTE MOVIMIENTO, O 
BIEN PODRA DAR ”H”' PARA VER LA 
POSICION EN ESE MOMENTO 

LA CARA SE REFIERE SIEMPRE A LA 
CARA CON EL COLOR DE REFERENCIA 
EN EL CENTRO; EJ.-LA CARA R ES LA 
CARA CON EL COLOR ROJO EN EL 
CENTRO 


DE ”S”' PARA COMENZAR 
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Ssss 

SGS 

Sss 
SSSS?8SSS 

SYSSRSSWS 

SSSSSSSSS 

Sss 

SBS 

Sss 


COJA EL CUBO CON LA CARA ROJA 
HACIA VD., Y LA VERDE HACIA ARRI- 
BA 


MOV 28. GIRE LA CARA ANARANJADA 
A IZQUIERDAS. DE "NEW LINE” 


MOV 29. GIRE LA CARA VERDE A 
IZQUIERDAS. DE "NEW LINE” 


MOV 30. GIRE LA CARA ANARANJADA 
A IZQUIERDAS. DE "NEW LINE” 


MOV 31. GIRE LA CARA AMARILLA A 
IZQUIERDAS. DE "NEW LINE” 


MOV 32. GIRE LA CARA ANARANJADA 
A DERECHAS. DE "NEW LINE” 

MOV 33. GIRE LA CARA AMARILLA A 
DERECHAS. 


5 SLOW 

6 RAND 

10 REM INSTRUCCIONES 
15 CLS 
20 PRINT TAB 8;”” 
30 PRINT TAB 8; 
50 PRINT "ESTE PROGRAMA CON- 


SISTE EN DOS”” 

60 PRINT **PARTES. UNA PARA IN- 
TRODUCIR LA” 

70 PRINT ”*POSICION, Y OTRA PARA 
HACER” *EL** 


80 PRINT **CUBO.”” 
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90 


100 
110 
115 
120 
130 
131 


132 
133 


134 
135 


136 
140 


150 
160 
165 
170 
175 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 


300 


PRINT "PARA INTRODUCIR EL 
CUBO VERA VD.” 

PRINT "UN DIAGRAMA QUE LE 
MOSTRARA QUE”” 

PRINT *'QUE COLOR INTRODUCIR 
EN EL SIGNO”””?'””  INTERMI- 
MITENTE.” 

PRINT "DE VD. LA LETRA DEL” 
PRINT "COLOR SEGUN LA TABLA 
SIGUIENTE:-” 

PRINT "ROJO =R(RED)” 

PRINT "VERDE =G(GREEN)” 
PRINT "AZUL =B(BLUE)”' 

PRINT ''AMARILLO =Y(YELLOW) 


» 


PRINT "BLANCO =W(WHITE)"” 


PRINT "ANARANJADO =O(ORAN- 
GE)” 

PRINT 

PRINT ''CASO DE EQUIVOCARSE 


PRINT "DE””0'"” "PARA RETRO- 
CEDER” 
PRINT TAB 10; DA'”'*"C*”” PARA 


CONTINUAR”” 

IF INKEY$<>"C” THEN GOTO 165 
CLS 

PRINT TAB 10;"CUBE MASTER” 
PRINT TAB 10;” dl 
PRINT "EN LA SEGUNDA PARTE 


LA MAQUINA” 

PRINT "LE DIRA CUAL DE LAS 6 
CARAS” 

PRINT ''DEL CUBO HABRA DE 
MOVER” 

PRINT "BIEN SEA A DERECHAS O 
A" 

PRINT "IZQUIERDAS. TODOS LOS 
GIROS SON” 

PRINT "DE NOVENTA GRADOS.” 


PRINT 
PRINT "TRAS HABER HECHO EL 
GIRO, ESPERE” 


PRINT ''A QUE APAREZACA EL 
MENSAJE:” 
PRINT'”*"DE N/L””. ENTONCES 


PODRA RECIBIR” 

PRINT. "EL SIGUIENTE MOVI- 
MIENTO, O BIEN” 

PRINT "PODRA DAR *”'"H””” PA- 
RA VERLA” 


310 


320 


330 


340 


350 


360 
390 
400 


410 
411 
415 
520 
530 
540 
542 
544 
545 
546 
547 
548 
550 
560 
570 
580 
590 
600 
610 
620 
625 
630 
640 
650 


660 
670 
675 
680 
690 
700 
705 
710 
770 
772 
774 
780 


PRINT "POSICION EN ESE MO- 
MENTO”” 
PRINT "LA CARA SE REFIERE 


SIEMPREALA” 
PRINT "CARA CON EL COLOR DE 
REFERENCIA” 


PRINT "EN EL CENTRO; EJ.-LA 
CARA R” 
PRINT "ES LA CARA CON EL CO- 


LOR ROJO” 
PRINT "EN ELCENTRO” 


PRINT 

PRINT'"'DE””'S''”” PARA COMEN- 
ZAR” 

IF INKEYS<>"S”' THEN GOTO 410 
CLS 

PRINT TAB 20; "AGUARDE” 


REM ENTRADA POSICIONES 
DiM E(6,6) 

DIM C(6,6) 

FORI=1TO6 

FORJ=1TO6 

LET E(l,J) =7 

LET C(1,J) =7 

NEXT J 

NEXT! 

LETCS='"'RBWGYOS”” 

LETR=1 

LETB=2 

LETW=3 

LETG =4 

LETY:=5 

LETO=6 

FORS=1TO6 

CLS 

GOSUB 1000 

PRINT 

PRINT "COJA EL CUBO CON LA 
CARA”; 

LET COLOUR =3 
GOSUB 1150 

PRINT 

PRINT "HACIA VD., 
LET COLOUR =TOP 
GOSUB 1150 

PRINT 

PRINT "HACIA ARRIBA” 
FORC=1T08 
LETOD=VAL *'33455543''(C) 
LETA =VAL *'45554333”'(C) 

LET SID=VAL "TOP TOP RIG RIG 


Y LA”; 


BOT BOTLEFLEF'(C*4-3TO C*4 
-1) 

790 PRINTAT D,A; 2" 

795 LET X$ =INKEYS$ 

797 1F X$<>'""” THEN GOTO 815 

800 PRINTATD,A;'” ” 

802 LET X$ =INKEYS$ 

805 IF X$="'"' THEN GOTO 790 

820 IF X$=”"R” ORX$="B'"ORX$=" 
W'"'ORX$5="G” OR X$=" Y" OR 
X$="'0'* THEN GOTO 860 

830 IF X$<>"'0'”” OR C=1 THEN GOTO 
800 

835 PRINTATD,A;” *” 

840 LETC=C-1 

845 GOTO 772 

860 PRINT AT D,A;C$(VAL X$) 

870 IF C/2<ANT (C/2) THEN GOTO 900 

880 LET C(S,SID) =VAL X$ 

890 GOTO 910 

900 LET E(S,SID) =VAL X$ 

910 NEXT CG 

920 NEXT S 

930 CLS 

940 PRINT "AGUARDE POR FAVOR” 

950 GOTO 2400 

1000 REM SUB QUE DIBUJA EL CUBO 

1001 GOSUB 1005 

1002 GOTO 1050 

1005LET TOP=VAL "'GRRRRB"'(S) 

1010LET RIG=VAL ''WWGYBW"'(S) 
1020LET LEF=VAL ”"YYBWGY”'(S) 
1030LET BOT=VAL ”''BOOOOG”'(S) 

1040 LET BAC=VAL ”"'OGYBWR”'(S) 

1045 RETURN 

1050 PRINT ” (3) "¡C$(C(TOP,LEF));C0$ 
(E(TOP,BAC));C$(C(TOP,BAC)) 

1060 PRINT ” (8) "¡CS5(E(TOP,LEF));C$ 
(TOP); CHE(TOP,RIG)) 

1070 PRINT ” (3) ¡CS(C(TOP,S));C$5(E( 
TOP,S));C$ (C(TOP,RIG)) 

1080 PRINT CS$(C(LEF,BAC));CS(E(LEF, 
TOP));CS(C(LEF,TOP));C$(C(S,LEF) 
:CS(E(S,TOP));C$(C(S,TOP));CS(C( 
RIG,S);CS(E(RIG,TOP));C$(C(RIG, 


TOP)) 

1090 PRINT— CS(E(LEF,BAC));¡CS(LEF); 
CS(E(LEF,S));C$(E(S,LEF));C$(S); 
CH(E(S,RIG));CS(E(RIG,S));¡CH(RIG) 


s(E 
:CS(E(RIG,BAC)) 
1100 PRINT C$(C(LEF,BOT));CS$(E(LEF, 
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BOT));CH(C(LEF,S));CS(C(S,BOT)); 
C$(E(S,BOT));C$(S,RIG));CS(C( 
RIG,BOT));CH(E(RIG,BOT));C$(C( 
RIG,BAC)) 

1110 PRINT *'(3) ”;CS(C(BOT,LEF));C$(E 
(BOT,S));C$(C(BOT,S)) 

1120 PRINT ”' (3) "¡CS(E(BOT,LEF));C$( 
BOT);C$(E(BOT,RIG)) 

1130 PRINT *8)'¡C$5(C(BOT,BAC));C$(E( 
BOT,BAC));CS(C(BOT,RIG)) 

1140 RETURN 

1150 REM SUB DA COLOR 

1155 PRINT "ROJA'”” AND COLOUR =1; 


“AZUL” AND COLOUR =2;”” 
BLANCA” AND  COLOUR=3;"” 
VERDE”;¡AND COLOUR =4;”" 


AMARILLA” AND COLOUR=5;” 
ANARANJADO” AND COLOUR = 
6; 

1160 RETURN 

1300 REM SUB COMPRUEBA POSICION 

1305 CLS > 

1310 PRINT "CONTROL DE POSICION” 

1320 PRINT 

1330 PRINT "PARA VER UNA CARA DE 


LA” 
1340 PRINT "INICIAL DEL COLOR EN 
CUESTION” 


1350 PRINT ''QUE DESEE VER.” 
1370 PRINT "PARA VER OTRA CARA” 
1380 PRINT "DE OTRA LETRA INICIAL 


1390 PRINT "Si ESTA SATISFECHO” 

1400 PRINT "PARA CONTINUAR DE””” 
N/L00” 

1410 PRINT '*PERO SI QUIERE COMEN- 
ZAR DE NUEVO” 

1420 PRINT "DE '”'0'””, DE AHORA 
TECLA” 

1430 PRINT '"DESEADA” 

1450 LETKS=INKEYS$ 

1460 IFK$="'""THEN GOTO 1450 

1470 IF K$=CHR$ 118 THEN RETURN 

1480 IFK$="0'”” THEN RUN 

1490 IF K$<>'"R'”” AND K$<>"B”” AND 
K$<>'"W'” AND K$<>"G'”* AND K$< 
>'"Y” AND K$>"”0” THEN GOTO 
1450 

1500 LETS=VALK$ 

1510 CLS 

1520 GOSUB8 1000 
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1530 PRINT 
1540 LET COLOUR =S 

1550 GOSUB 1150 

1560 PRINT "HACIA VD,” 

1570 LET COLOUR=TOP 

1580 GOSUB 1150 

1585 PRINT 

1590 PRINT “HACIA ARRIBA.” 

1600 GOTO 1450 

2000 REM SUB HACE MOVIMIENTOS 
2002 IF X$<>"""THEN GOTO 2010 

2004 LET X$=""" 

2006 RETURN 

2020 LET SID=VAL X$(1 TO 2) 

2075 LET X$=X8(4) 


2085 IF SID<>TS THEN GOTO 2120 

2090 IF X$="'A'”' THEN GOTO 2110 

2100 LET XX =FS 

2101 LETFS=LS 

2102 LETLS=BS 

2103 LETBS=RS 

2104 LETRS=XX 

2105 GOTO 2120 

2110 LETXX=FS 

2111 LETFS=RS 

2112 LETRS=BS 

2113 LETBS=LS 

2114 LETLS=XX 

2120 LET MOVE =MOVE + 1 

2121 1F MOVE=1 THEN GOTO 2160 

2122 PRINT “DE” "NEWLINE''” 

2130 LETK$=INKEYS 

2140 IF K$<>"H” AND K$<>CHR$ 118 
THEN GOTO 2130 

2150 1F K$="H” THEN GOSUB 1300 

2160 SCROLL 

2165 PRINT TAB 31; 

2170 SCROLL 

2175 PRINT TAB 31;¡AT 21,0;"MOV"'; 
MOVE;”".GIRELA CARA”; 

2180 LET COLOUR =SID 

2185 GOSUB 1150 

2195 SCROLL 

2200 1F X$="A” THEN GOTO 2215 

2205 PRINT TAB 31;AT 21,0;"A DERE- 
CHAS. (7) ”; 

2210 GOTO 2218 

2215 PRINT TAB 31;¡AT 21,0;"A 1Z- 
QUIERDAS. (1) ”; 

2218 LETS =SID 

2219 GOSUB 1005 


2220 1F X$="A'" THEN GOTO 2250 
2221 LET XX =E(S,TOP) 

2222 LET E(S,TOP) =E(S,LEF) 
2223 LET E(S,LEF) =E(S,BOT) 
2224 LET E(S,BOT) =E(S,RIG) 
2225 LET E(S,RIG) =XX 

2226 LET XX = E(TOP,S) 

2227 LET E(TOP,S) =E(LEF,S) 
2228 LET E(LEF,S) =E(BOT,S) 
2229 LET E(BOT,S) = E(RIG,S) 
2230 LET E(RIG,S) =XX 

2231 LET XX =C(S,TOP) 

2232 LET C(S,TOP) =C(S,LEF) 
2233 LET C(S,LEF) =C(S,BOT) 
2234 LET C(S,BOT) = C(S,RIG) 
2235 LET C(S,RIG) =XX 

2236 LET XX =C(TOP,S) 

2237 LET C(TOP,S) =C(LEF,S) 
2238 LET C(LEF,S) =C(BOT,S) 
2239 LET C(BOT,S) =C(RIG,S) 
2240 LET C(RIG,S) =XX 

2241 LET XX =C(TOP,RIG) 
2242 LET C(TOP,RIG) =C(LEF,TOP) 
2243 LET C(BOT,LEF) =C(BOT,LEF) 
2244 LET C(LEF,TOP)=C(RIG,BOT) 
2245 LET C(RIG,BOT) =XX 
2246 GOTO 2280 

2250 LET XX =E(S,TOP) 

2251 LET E(S,TOP) =E(S,RIG) 
2252 LET E(S,RIG) =E(S,BOT) 
2253 LET E(S,BOT) =E(S,LEF) 
2254 LET E(S,LEF)=XX 

2255 LET XX =E(TOP,S) 

2256 LET E(TOP,S) =E(RIG,S) 
2257 LET E(RIG,S) =E(BOT,S) 
2258 LET E(BOT,S) = E(LEF,S) 
2259 LET E(LEF,S) =XX 

2260 LET XX =C(S,TOP) 

2261 LET C(S,TOP) =C(S,RIG) 
2262 LET C(S,RIG)=C(S,BOT) 
2263 LET C(S,BOT) =C(S,LEF) 
2264 LET C(S,LEF)=XX 

2265 LET XX =C(TOP,S) 

2266 LET C(TOP,S) =C(RIG,S) 
2267 LET C(RIG,S) = C(BOT,S) 
2268 LET C(BOT,S) =C(LEF,S) 
2269 LET C(LEF,S) =XX 

2270 LET XX =C(TOP,RIG) 


2271 LET C  (TOP,RIG)=C(RIG,BOT) 
2272 LET C(RIG,BOT) =C(BOT,LEF) 
2273 LET C(BOT,LEF)=C(LEF,TOP) 


2274 LET C(LEF,TOP)=XX 

2280 LETX$="""” 

2290 RETURN 

2400 REM COMIENZO DE LA FORMU- 
LA 

2410 LET MOVE =0 

2430 LETX$="'"" 

2450 LET TS=1 

2460 LETTC=1 

2470 LETUS=6 

2480 LETUC=6 

2490 LETFS=2 

2500 LETFC=2 

2505 REM ANGULOS SUPERIORES 

2510 FORI=2TO5 

2520 1F E(TS,I)=TC THEN GOTO 2550 

2530 NEXT | 

2540 GOTO 2570 

2550 LETFS=1I 

2560 LET FC =E(FS,TS) 

2570 LETED=0 

2580 GOSUB 2589 

2581 GOTO 2640 

2589 LETLO=VAL 5234 (FC) 

2590 LETLS=VAL 5234 ''(FS) 

2600 LETRC=VAL *'3452' (FC) 

2610 LETRS=VAL ''3452' (FS) 

2620 LETBC=VAL *4523' (FC) 

2630 LETBS=VAL "4523" (FS) 

2635 RETURN 

2640 IF E(FS,TS)=FC AND E(TS,FS)= 
TC THEN GOTO 2860 

2650 IF E(BS,TS)=TC AND E(TS,BS)= 
FC OR E(BS,TS)=FC AND E(TS,BS 
)=TC THEN LET X$="BS A” 

2660 GOSUB 2000 

2670 IF E(FS,US)=TC AND E(US,FS)= 
FC OR E(BS,US)=TC AND E(US, 
BS) =FC OR E(BS,US)=FC AND E( 
US,BS)=TC THEN LET X$="US A 


2680 IF E(BS,RS)=FC AND E(RS,BS)= 
TCTHENLETXS$="TSA” 

2685 IF E(BS,LS)=FC AND E(LS,BS)= 
TCTHENLETX$="TSC” 

2690 IF E(RS,TS)=TC AND E(TS,RS)= 
FC OR E(RS,TS)=FC AND E(TS, 
RS)=TC THEN LET X$="RS A” 

2695 IF E(FS,TS)=TC AND E(TS,FS)= 
FCTHENLET X$="FSC” 

2700 1F E(LS,TS)=TC AND E(TS,LS)= 
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FC OR E(LS,TS)=FC AND E(TS,LS) 
=TCTHENLETXS$="LSC” 

2710 GOSUB 2000 

2720 IF E(US,RS)=TC AND E(RS,US)= 
FC THENLETX$=" USA” 

2730 1F E(US,LS)=TC AND E(LS,US)= 
FCTHENLETX$="USC"” 

2740 IF E(US,RS)=FC AND E(RS,US)= 
TCTHENLETX$="RSC” 

2750 IF E(US,LS)=FC AND E(LS,US)= 
TCTHENLETX$="LSA'" 

2760 IF E(FS,RS)=TC AND E(RS,FS)= 
FC OR E(BS,RS)=TC AND E(AS,BS 
) =FCTHENLETXS="TSA" 


2770 1F E(FS,LS)=TC AND E(LS,FS)= 
FC OR E(BS,LS)=TC AND E(LS,BS) 
=FC THEN LETX3$="TSC” 

2780 GOSUB 2000 

2790 IF E(FS,US)=FC AND E(US,FS)= 
TCTHENLETXS$="FSA” 

2800 GOSUB 2000 

2810 IF E(FS,RS)=FC AND E(RS,FS)= 
TCTHEN LETX$=' FSA” 

2820 IF E(FS,LS)=FC AND E(LS,FS)= 
TCTHEN LET X$="FSC” 

2830 GOSUB 2000 

2840 IF E(BS,LS)=TC AND E(LS,BS)= 
LOCTHENLET X$="LSC” 

2842 GOSUB 2000 

2845 IF E(BS,RS)=TC AND E(RS,BS)= 
RCTHEN LET X$=”"RSA” 

2850 GOSUB 2000 

2860 LETED=ED+1 

2870 IFED=4 THEN GOTO 2910 

2880 LETFC=VAL” 3452 (FC) 

2890 LETFS=VAL” 3452 (FS) 

2895 GOSUB 2589 

2900 GOTO “2580 

2910 REM TOP CORNERS 

2915 LETZ$=""" 

2920 LETCO=0 

2930 1F FC=VAL ” 4523 "(FS) THEN 
LETX$S="TSC” 

2940 GOSUB 2000 

2950 1F FC=VAL” 3452 "(FS) THEN 
LETX$S="TSA” 

2960 IF FC=VAL'” 5234 (FS) THEN 
LET X$=”"TSC” 

2970 GOSUB 2000 

2980 IF C(FS,TS)=FC AND C(RS,FS)= 
TC THEN LET Z$=”"RS A US C 
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RSC” 

2990 IF C(FS,TS)=FC AND C(TS,AS) = 
TC THEN GOTO 3320 

3000 IF C(TS,RS)=FC AND C(AS,FS)= 
TC THEN LET Z$=”FSCUSA FS 
A” 

3010 IF C(RS,TS)=TC AND C(BS,RS) = 
FC THEN LET Z5=”"RS C USA US 
ARSA” 

3020 |F C(TS,BS)=TC AND C(RS,TS) = 
FC THEN LET Z5$=”"BSA US A BS 
c” 

3030 |F C(TS,BS)=FC AND C(BS,RS) = 
TC THEN LET Z$=”FS C BS A 
USAFSABSC” 

3040 IF C(LS,BS)=FC AND C(BS,TS) = 
TC THEN LET Z$=”BSCRSA US 
CUSCRSCBSA” 

3050 IF C(TS,LS)=TC AND C(BS,TS) 
=FC THEN LET Z$=”"LSA RS A 
USCUSCRSCLSC” 

3060 IF C(TS,LS)=FC AND C(LS,BS)= 
TC THEN LET Z$="LSA FS C US 
CUSCFSALSC” 

3070 IF C(LS,TS)=TC AND C(FS,LS)= 
FC THEN LET Z$=”"RS A LS C US 
CLSARSC” 

3080 IF C(TS,FS)=FC AND C(LS,TS) = 
TS THEN LET Z$="”"LS C US C LS 
A” 

3090 IF C(FS,LS)=TC AND C(TS,FS)= 
FC THEN LET Z$=”'FS A US C US 
CFSsC” 

3100 GOSUB 3120 

3110 GOTO 3170 

3120 FOR K=1 TO LEN Z$STEP 5 

3130 LET X$ =Z$(K TO K + 3) 

3140 GOSUB 2000 

3150 NEXT K 

3155 LETZ$="”” 

3160 RETURN 

3170 IF C(US,RS)=TC AND C(BS,US) = 
FCTHENLET X$='”USC” 

3180 IF C(US,LS)=TC AND C(FS,US) = 
FCTHENLETX$=”USA” 

3190 GOSUB 2000 

3200 IF C(US,BS)=TC AND C(LS,US) = 
FC THEN LET Z$=”FSCUSC FS 
A” 

3210 IF C(US,FS)=TC AND C(RS,US) = 
FC THEN LET Z$=”'RSA USC RS 


Es 

3220 GOSUB 3120 

3230 IF C(FS,RS)=TC AND C(US,FS) = 
FC THEN LET Z$=”FSCUSC FS 
Ar 

3240 IF C(RS,US)=TC AND C(FS,RS)= 
FC THEN LET Z$="RS A USA RS 
Cc” 

3250 IF C(RS,BS)=TC AND C(US,RS)= 
FC THEN LET Z$="US A FS C US 
CFSA” 

3260 IF C(BS,US)=TC AND C(AS,BS)= 
FC THEN LET Z$=”FSC USA FS 
es 

3270 1F C(BS,LS)=TC AND C(US,BS)= 
FC THEN LET Z$=”RSA US A US 
ARSC” 

3280 IF C(LS,US)=TC AND C(BS,LS)= 
FC THEN LET Z$="FS C US C US 
CESA" 

3290 IF C(LS,FS)=TC AND C(US,LS)= 
FC THEN LET Z$="'RS A US C RS 
Cc" 

3300 1F C(FS,US)=TC AND C(LS,FS)= 
FC THEN LET Z$="US C RS A US 
ARSC” 

3310 GOSUB 3120 

3320 LETCO=CO0 +1 

3330 IF CO=4 THEN GOTO 3370 

3340 LETFC=VAL' 3452 ”(FC) 

3350 LETFS=VAL” 3452 "(FS) 

3355 GOSUB 2589 

3360 GOTO 2960 

3370 REM ANGULOS MEDIOS 

3380 LET R$=”"FS C USA FS A US A 
RSAUSCRSC” 

3390 LET L$=”FS A US C FS C USC 
LSCUSALSA” 

3400 LET MI =(E(W,G) =W AND E(G,W 
) =G) + E(E(G,Y) =G AND E(Y,G) = 
Y) + (E(Y,B)=Y AND E(B,Y) =B)+ 
(E(B,W)=B_ AND  E(W,B)=W) 

3405 IF MI =4 THEN GOTO 3690 

3410 FORK=2T0O5 

3420 IF E(US,K)<>UC AND E(K,US)<> 
UC THEN GOTO 3450 

3430 NEXT K 

3440 GOTO 3590 

3450 LET FC =E(US,K) 

3460 LETFS=FC 

3470 GOSUB 2589 


3480 IFK =FS THEN LET X$ =”US C”” 

3485 IF K =FS THEN LET K =RS 

3490 GOSUB 2000 

3500 IF K=RS THEN LET X$="”US C” 

3510 1F K=LS THEN LET X$="”US A” 

3520 GOSUB 2000 

3530 IF E(BS,US)=RC THEN LET Z$= 
R$ 

3540 IF E(BS,US) =LC THEN LET Z$ =L$ 

3550 GOSUB 3120 

3560 LET MI =MI+ 1 


3570 1F MI =4 THEN GOTO 3690 
3580 GOTO 3410 


3590 FORK =2T0O5 

3600 LETFC=K 

3610 LETFS=K 

3620 GOSUB 2589 

3630 IF E(FS,RS)<>FC OR E(RS,FS)<> 
RC THEN GOTO 3660 

3640 NEXT K 

3650 STOP 

3660 LETZ$=R$ 

3670 GOSUB 3120 

3680 GOTO 3410 

3690 REM ESQUINAS INFERIORES 

3740 LETAS="RSAUSARSCFSCUS 
AFSARSAUSCRSC” 

3750 LETB$=RSAUSARSCFSCUSA 
USAFSARSAUSCRSC” 

3760 FORK=2T05 

3770 LETFS=K 

3780 LETFC=K 

3785 GOSUB 2589 

3790 FORL=1T04 

3800 LET S$='"'LSFSFSRSRSBSBSLS'”(L 
*4-3TOL*4) 

3810 GOSUB 3850 

3820 IF X =1 THEN GOTO 3900 

3830 NEXT L 

3840 STOP 

3850 LET $1 =VAL S$(1 TO 2) 

3860 LET S2=VAL S$(3 TO 4) 

3870 LETX=0 

3880 IF C(LS,FS) =S1 AND C(FS,US) = 82 
OR C(FS,US)=S1 AND C(US,LS) = 
s2 OR C(US,LS)=S1 AND CILS, 
FS) =S2 THEN LET X=1 

3890 RETURN 

3891 LET S1=VAL S$(1 TO 2) 

3892 LET S2=VAL S$(3 TO 4) 

3893 LET X=0 
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3894 IF C(FS,AS)=S1 AND C(AS,US) = 
52 OR C(RS,US) =S1 AND C(US,FS) 
=S2 OR C(US,FS)=S1 AND C(FS, 
RS) =S2 THEN LET X =1 

3895 RETURN 

3900 LET S$='""FSRSRSBSBSLSLSFS'”'(L 
*4-3TOL*4) 

3910 GOSUB 3891 

3920 IF X=1 THEN GOTO 3959 

3930 NEXT K 

3940 LET Z$=B8 

3950 GOTO 3970 

3959 LET FS=VAL ''3452''(FS) 

3960 LET FC =FS 

3961 GOSUB 2589 

3962 GOSUB 3891 

3963 IF X =1 THEN GOTO 3982 

3964 LETFS=VAL *'5234”(FS) 

3965 LET FC =FS 

3966 GOSUB 2589 

3969 LET Z$=A$ 

3970 GOSUB 3120 

3982 LETR$=""RSAUSAASCUSA RS 
AUSCUSCRSC” 

3984 LETL$=”LSCUSCLSAUSCLS 
CUSAUSALSA” 

3990 LET FL =(C(US,FS)=UC)+ (C(US, 
RS) = UC) + (C(US,BS) =UC) + (U( 
US,LS) =UC) 

3995 IF FL =4 THEN GOTO 4220 

3997 IF FL =1 THEN GOTO 4100 

4000 LET FS=VAL *'3452''(FS) 

4010 LETFC=FS 

4020 GOSUB 2589 

4030 IF C(FS,US)=UC AND C(FS,RS)= 
UC AND C(US,BS) =UC AND C(US, 
RS) =UC THEN LET Z$ =R$ 

4040 IF C(FS,US)=UC AND C(US,FS)= 
UC AND C(BS,LS)=UC AND C(US, 
RS) =UC THEN LET Z$=R$ 

4050 IF C(LS,FS)=UC AND C(RS,US)= 
UC AND C(LS,US) =UC AND CIRS, 
BS) =UC THEN LET Z$=R$ 

4060 IF C(LS,FS)=ÚC AND C(FS,RS)= 
UC AND C(LS,US)=UC AND C(BS, 
US) =UC THEN LET Z$=RS$ 

4070 IF C(FS,US)=UC AND C(US,FS)= 
UC AND C(US,BS) =UC AND C(RS, 
BS) =UC THEN LET Z$=R$ 

4080 GOSUB 3120 

4090 GOTO 3990 
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4100 FORK=2T0O5 

4110 LETFC=K 

4120 LETFS=K 

4130 GOSUB 2589 

4140 IF C(US,LS)=UC AND C(FS,RS) = 
UC THEN GOTO 4180 

4150 IF C(US,FS)=UC AND C(FS,US) = 
UC THEN GOTO 4200 

4160 NEXT K 

4170 STOP 

4180 LET Z$ =R$ 

4190 GOTO 4210 

4200 LET 2$ =L$ 

4210 GOSUB 3120 

4220 IF C(FS,RS) =BS THEN LET X$=” 
USC” 

4230 GOSUB 2000 

4240 IF C(FS,RS) =RC THEN LET X$=" 
USA” 


4250 IF C(FS,RS)=LC THEN LET X$=" 
USA” 

4260 GOSUB 2000 

4270 REM BOTTOM EDGES 

4280 LET A$=”"'LSARSCFSCLSCRS 
AUSAUSALSARSCFSCLSC 
RSA” 

4290 LET B$=”"LSARSCFSALSCRS 
A USCUSCLSARSCFSALSC 
RSA” 

4300 LETR$="''RSAUSARSCUSCLS 
CUSCLSA USA USA RSA USC 
RSCUSCLSCUSALSA” 

4310 LET L$=”LSCUSCLSA USA RS 
AUSARSCUSCUSCLSCUSA 
LSAUSARSAUSCRSC” 

4320 LET FL =(E(O,B) =0)+(E(O,W) = 
0) + (E(O,G) =0) + (E(O,Y) =0) 

4330 IF FL =4 THEN GOTO 5000 

4340 IF FL=0 THEN GOTO 4600 

4350 IF (E(0,B)=0 OR E(O,G)=0) AND 
(E(O,Y)=0 OR E(O,W)=0) THEN 
GOTO 4440 

4360 FORK =2T05 

4370 IF E(K,US) =K THEN GOTO 4390 

4380 NEXT K 

4385 LETK=2 

4390 LETFC=K 

4400 LETFS=K 

4410 GOSUB 2589 

4420 LET Z$=R$ 

4430 GOSUB 3120 


4440 LET CO =2 

4445 LET CO =CO-1 

4450 FORK =2TO5 

4460 IF E(K,0)<>0 THEN GOTO 4480 

4470 NEXT K 

4475 GOTO 4445 

4480 IF E(K,O)<>Kk AND CO THEN GO- 
TO 4470 

4490 LET FC=K 

4500 LET FS=K 

4510 GOSUB 2589 

4520 LET Z5=A$ 

4530 IF E(US,RS)=UC THEN LET Z$= 
BS 

4540 GOSUB 3120 

4550 GOTO 5000 

4600 FORK =2T0O5 

4610 IF E(O,K)=K THEN GOTO 4630 

4620 NEXT K 

4622 LETK =2 

4630 LET Z$=AS$ 

4640 LET FS=K 

4650 LETFC=K 

4660 GOSUB 2589 

4670 IF E(US,LS)=BC THEN LET Z5$= 
B$ 

4680 GOSUB 3120 

4690 GOTO 4440 

5000 LET FL =E(B,O) =B) + E(W,O) = 
W) + (E(G,O) =G) + (E(Y,O) =Y) 

5005 IF FL =4 THEN GOTO 8000 

5009 FORK =2T05 

5010 IF E(K,0)=K THEN GOTO 5100 

5020 NEXT K 

5030 LER 25 =R$ 

5040 GOSUB 3120 

5050 GOTO 5000 

5100 LET FS =K 

5110 LETFC=K 

5120 GOSUB 2589 

5130 LET Z$ =L$ 

5140 IF E(LS,US)=RC THEN LET Z5$= 
R$ 

5150 GOSUB 3120 

8000 REM CUBO TERMINADO 

8005 PRINT ”DE ”””NEW LINE” 

8010 IF INKE Y$<>CHR$ 118 THEN GO- 
TO 8010 

8020 CLS 

8030 PRINT *""'HA CONSEGUIDO VD. EL 


8040 PRINT '"'CUBO DE RUBIK. SI NO 


ESTA” 

8050 PRINT "TERMINADO ES QUE HA 
COMETIDO” 

8060 PRINT "UN ERROR. PARA IN- 
TENTARLO” 


8070 PRINT *'DE NUEVO DE”””N/L**”>” 
8080 IF INKEYS =CHR$ 118 THEN RUN 
8085 GOTO 8080 

8090 STOP 

9000 SAVE *'CUBÉ?” 

9010 GOTO 1 
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PROGRAMA NUM. 24 


ERES EL PRESIDENTE DE UN PEQUE- 
ÑO PAIS DURANTE 10 AÑOS 

PUEDES COMPRAR Y VENDER TIE- 
RRAS MANDAR TRABAJAR LA TIE- 
RRA Y REGULAR LA ALIMENTACION 
DE TU PUEBLO 


PULSA N/L CADA VEZ QUE QUIERAS 
INTRODUCIR NUEVOS DATOS 


20 LETP=100 

40 LETSP=0 

50 LETNP =10 

60 LET C =3000 

70 LETA =1000 

80 LETH=5 

90 LETL =INT(RND*5) + 104 

100 LETRA =1000 

110 LETAP=0 

120 LETSC=0 

200 PRINT "ERES EL PRESIDENTE DE 
UN PEQUEÑO”';”PAIS DURANTE 
10 AÑOS”;'"PUEDES COMPRAR Y 
VENDER —TIERRAS”,'"MANDAR 


TRABAJAR LA TIERRA”,”Y RE-. 


GULAR LA ALIMENTACION DE 
TU”,”” PUEBLO” 

210 PRINT AT 20,0;”PULSA N/L CADA 
VEZ QUE QUIERAS”, INTRODU- 
CIR NUEVOS DATOS” 

300 INPUT X$ 

310 CLS 

900 LET TSP =0 

910 LET Y =1 

1000 PRINT AT 

1010 GOSUB 9500 

1020 PRINT ''POBLACION AÑO”;Y;” 
ES DE”;P; HABIT” 

1030 PRINT — ”'LLEGAN”';NP;'”PERSO- 
NAS NUEVAS”' 

1040 PRINT SP;'' MUERTOS POR HAM- 
BRE” 

1050 GOSUB 9300 

1060 PRINT '*'GRANO COSECHADO”';H 
*”»SACOS POR AREA” 

1070 PRINT "TIERRA CUESTA”';L;” 
SACOS POR AREA” ] 

1080 PRINT ''RATAS COMIERON”;R 
S. DEGRANO” 


0,10;'"DICTADOR”” 


1090 GOSUB 9500 
1100 PRINT-AT 17/07 ió 


»” 


1110 PRINT AT 12,0;''CUANTAS AREAS 
VENDES?” 

1120 INPUT A$ 

1125 IFA$=”"""THEN GOTO 1120 

1130 GOSUB 9200 

1140 IFZ=1 THEN GOTO 1170 

1150 IF AS<=A THEN GOTO 1200 

1160 GOSUB 9000 

1170 LETQO =12 

1180 GOSUB 9100 

1190 GOTO 1110 

1200 LETA =A-AS 

1210 LETC=C+AS*L 

1220 PRINT AT 12,28;¡AS 

1230 GOSUB 9300 

1240 PRINTAT 13,0, 2" 0 "2 2 
COMPRAR 2” 

1250 INPUT A$ 

1255 IFA$="”'” THEN GOTO 1250 

1260 GOSUB 9200 

1270 1FZ=1 THEN GOTO 1300 

1280 IF AS*"L<=C THEN GOTO 1330 

1290 GOSUB 9400 

1300 LET QQ =13 

1310 GOSUB 9100 

1320 GOSUB 1240 

1330 LETA=A+AS 

1340 LETC=C-AS*L 

1350 PRINT AT 13,28;AS 

1360 GOSUB 9300 

1370 PRINT AT 14,0;''CUANTAS AREAS 
CULTIVAR?”” 

1380 INPUT A$ 

1385 IFA$="”"”* THEN GOTO 1380 

1390 GOSUB 9200 

1400 IF Z =1 THEN GOTO 1430 

1410 IF AS<=A THEN GOTO 1460 

1420 GOSUB 9000 

1430 LETQOQ =14 

1440 GOSUB 9100 

1450 GOTO 1370 

1460 IF AS<=C THEN GOTO 1490 

1470 GOSUB 9400 

1480 GOTO 1430 

1490 IF AS<=P*10 THEN GOTO 1530 

1500 PRINT AT 19,0;"*SOLO TIENES ””;P 
¡' TRABAJADORES” 

1510 GOSUB 9010 
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1520 GOTO 1430 

1530 LETC=C-AS 

1540 PRINT AT 14,28;AS 

1550 GOSUB 9300 

1560 LETAP=AS 

1570 PRINT AT 15,0; *””*”  ”” SACOS 
PARA”, ALIMENTAR AL PUEBLO 
2” 

1580 INPUT A$ 

1585 IF A$="”*""” THEN GOTO 1580 

1590 GOSUB 9200 

1600 IF Z=1 THEN GOTO 1630 

1610 IF AS<=C THEN GOTO 1660 

1620 GOSUB 9400 

1630 LETQO =15 

1640 GOSUB 9100 

1650 GOTO 1570 

1660 LETC=C-AS 

1670 PRINT AT 16,28;AS 

1680 GOSUB 9300 

2000 LET SP =0 

2005 IF P"10=AS THEN GOTO 2050 

2010 LETSP =P-— INT (AS/10) 

2020 LETP=P-SP 

2030 LET TSP =TSP + SP 

2040 IF. SP>P*(RND*5+10)/10 THEN 
GOTO 2200 

2050 LET Y =Y+1 

2060 IF Y =11 THEN GOTO 2400 

2070 LET H =2+ INT (5*RND) 

2080 LETC=AP*H 

2090 LETR=0 

2100 IF C>=10000 THEN LET R=C- 
10000 

2110 LETR=R+INT(C*ABS (RND-.5) 
) 

2120 LETC=C-R 

2130 LET NP =INT (RAND *30) 

2140 LETP=P+NP 

2150 LETL =INT(RND*5) +10 

2151 FORK =1 TO 30 

2152 NEXT K 

2160 CLS 

2170 GOTO 1000 

2200 CLS 

2210 PRINT '"TU PUEBLO SE HA REBE- 
LADO DEBIDO A TU FALTA DE 
CONSIDERACION POR SU ALIl- 
MENTACION” 

2215 GOSUB 9500 

2220 PRINT "EN TU CORTO PERIODO 


DE GOBIERNO HAS CONSEGUIDO 
MATAR DE HAMBRE A”;TSP;” 
PERSONAS” 

2225 GOSUB 9500 

2230 PRINT EL LIDER DE LOS REBEL- 
DES TE HA DADO LA POSIBILI- 
DAD DE REFORMAS Y 10 AÑOS 
PARA EJECUTARLAS”” 

2235 GOSUB 9500 

2240 PRINT ''PULSA''”'R'”'PARA RE- 
FORMA Y CUALQUIER OTRA TE- 
CLA PARA EJECUCION” 

2250 IFINKEY$=””' THEN GOTO 2250 

2260 IF INKEY$="'R** THEN CLS 

2270 GOTO 900 

2280 STOP 

2400 CLS 

2410 PRINT AT 0,4;”INFORME SOBRE 
LOS10AÑOS” 

2420 GOSUB 9500 

2430 PRINT "EN 10 AÑOS DE DICTA- 
DURA:-” 

2440 PRINT ” ”';TSP;”PERSONAS MU- 
RIERON DE HAMBRE” 

2448 IF A<1000 THEN PRINT ”VEN- 
DISTE'”;(1000-A);”' AREAS DE TIE- 
RRA” 

2460 IF A>=1000 THEN PRINT ''ADQUI- 
RISTE”;¡A -—1000;''AREAS DE TIE- 
RRA” 

2470 GOSUB 9500 

2480 LET SC=ABS (INT (100*((150-— 
TSP)/150)*(A/1500)*(P/150))) 

2490 PRINT ”EN ESCALA DE 1 A 100 
TUS RESULTADOS SE VALORAN 
EN”; SC 

2500 GOSUB 9500 

2510 IF SC<25 THEN PRINT "ERES UN 
FRACASO COMPLETO” 

2520 IF SC>=20 AND SC<50 THEN 
PRINT "VAYA BIRRIA” 

2530 IF SC>=50 AND SC<70 THEN 
PRINT **'NO ESTA MAL” 

THEN PRINT"DE: 


2540. 


2550 IF TSP>150 THEN PRINT '*STALIN 
NO FUE NADIE COMPARADO 
CONTIGO” 

2560 GOSUB 9500 

2570 PRINT— ”PULSA ""RY PARA 
OTROS 10 AÑOS, U OTRA TECLA 


PARA FIN” 

2580 GOTO 2250 

9000 PRINT AT 19,0;'"SOLO QUEDAN”; 
A; AREAS DE TIERRA” 

9010 FORI=0T0 100 

9020 NEXT | 

9030 LET QQ =19 

9040 GOSUB 9100 

9050 RETURN 

9100 FOR! =0TO 30 STEP 2 

9110 PRINT AT QQ,I;'"m'";¡AT Q0Qi;” 
Eee Q0,1+1;” "¡AT 0Q0,I+1; 
” 1) ,, 

9120 NEXT 1I 

9130 RETURN 

9200 IF A$="*”? THEN GOTO 9206 

9202 LETAS=0 

9204 GOTO 9230 

9206 FOR | =1 TO LEN A$ 

9210 1F CODE A$(I)<28 OR CODE AS$ 
(1)>37 THEN GOTO 9260 

9220 NEXT | 

9230 LET AS=VAL A$ 

9240 LETZ =0 

9250 RETURN 

9260 LETZ =1 

9270 RETURN 

9300 PRINT AT 6,3;”"TIENES””;C;'"SA- 
COS DE GRANO”;TAB 4; Y(1); 
A(1); "AREAS DE TIERRA” 

9310 RETURN 

9400 PRINT AT 19,0;""SOLO QUEDAN””; 
C;'*SACOS DE GRANO” 

9410 GOTO 9010 

9500 PRINTO Pan 

9510 RETURN 

9600 SAVE ''DICTADOR?” 

9610 GOTO 10 


DICTADOR 
POBLACION AÑO 1 ES DE 100 HABIT 
LLEGAN 10 PERSONAS NUEVAS 
O MUERTOS POR HAMBRE 


TIENES 2600 SACOS DE GRANO 

Y 1000 AREAS DE TIERRA 

GRANO COSECHADO 5 SACOS POR 
AREA 
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TIERRA CUESTA 12SACOS POR AREA 
RATAS COMIERON 1000 S.DE GRANO 


CUANTAS AREAS VENDES? 0 
CUANTAS AREAS COMPRAR? 0 
CUANTAS AREAS CULTIVAR? 400 
CUANTAS SACOS PARA ALIMENTAR 
ALIMENTAR AL PUEBLO? 600 


POBLACION AÑO 2 ES DE 66 HABIT 
LLEGAN 6 PERSONAS NUEVAS 
40 MUERTOS POR HAMBRE 


TIENES 1683 SACOS DE GRANO 

"1 1000 AREAS DE TIERRA 

GRANO COSECHADO 5 SACOS POR 
AREA 

TIERRA CUESTA 10 SACOS POR AREA 
RATAS COMIERON 1317 S.DE GRANO 
CUANTAS AREAS VENDES? 0 
CUANTAS AREAS COMPRAR? 0 
CUANTAS AREAS CULTIVAR? 300 
CUANTAS SACOS PARA 

ALIMENTAR AL PUEBLO? 700 


POBLACION AÑO 3 ES DE 98 HABIT 
LLEGAN 28 PERSONAS NUEVAS 
9 MUERTOS POR HAMBRE 


TIENES 912 SACOS DE GRANO 

Y 1000 AREAS DE TIERRA 

GRANO COSECHADO 5 SACOS POR 
AREA 

TIERRA CUESTA 13 SACOS POR AREA 
RATAS COMIERON 1624 S.DE GRANO 


TU PUEBLO SE HA REBELADO DEBIDO 
ATU FALTA DE CONSIDERACION POR 
SU ALIMENTACION 


EN TU CORTO PERIODO DE GOBIERNO 
HAS CONSEGUIDO MATAR DE HAM- 
BREA 148 PERSONAS 


EL LIDER DE LOS REBELDES TE HA 
DADO LA POSIBILIDAD DE REFOR- 
MAS Y 10 AÑOS PARA EJECUTARLAS 

PULSA '”'R” PARA REFORMA Y CUAL- 
QUIER OTRA TECLA PARA EJECUCION 
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LA GUERRA DELAS GALAXIAS (Programa número 25, '"WIGAN'"?) 
INSTRUCCIONES 


Tú, como Capitán GORDON de la nave ERIDANUS tienes que salvar la Galaxia de la ame- 
naza de los WIGANES. El juego se desarrolla en una Galaxia dividida en 16 cuadrantes, 
nombres de constelaciones (10 caracteres), y cada cuadrante está dividido en 4 secto- 
res (1-4). 


De esta manera la Galaxia entera se parece a un tablero de ajedrez (8 filas y 8 columnas). 
Tu posición se establece mediante un cuadrante (p.e. VIRGO) y un sector (p.e. 1) o alter- 
nativamente mediante fila y columna (p.e. 2,1) cada uno de los 64 sectores está dividido 
en 25 partes (5 x 5). 


inicialmente tienes 25.000 unidades de energía. 

El juego termina cuando: 

. Todos los WIGANES han sido destruidos (ganas) 
. No te queda energía 

. Has sido destruido Pierdes 
.Has salido de la Galaxia. 

COMANDOS QUE PUEDES UTILIZAR 

1.- NAVEGACION 


Te puedes mover dentro de la Galaxia mediante la introducción de: 


a) TU DIRECCION. Un número entre 0 y 8. 
(p.8.0, NORTE, 5.5 OESTE-SUROESTE) 


b) TU DISTANCIA. Un número entre 0.2 y 8. 
(p.e. para atravesar 4 sectores introducir 4. Para viajar de una parte a otra de un sector 


introducir 0.2). 


Acompañando a la navegación se dispone automáticamente de una Visión de CORTO 
ALCANCE. 
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2.- 


uw 
1 


LH 
' 


5.- 


NOTA: No puedes viajas a través de estrellas, NAVES WIGANAS etc. Si te encuentras 
fuera del borde de la Galaxia caes en un ''agujero negro”” y pierdes. 


VISION DE CORTO ALCANCE 


De esta forma se visiona la disposición en que se encuentra tu sector, dando para cada 
una de las 25 partes: 


K - WIGAN 

WIGAN AVERIADO 
B-BASE ESTELAR 

*: ESTRELLA 

E: NAVE ERIDANUS 

. ¡ ESPACIO VACIO 


También se expresa un MENSAJE sobre la condición en que se encuentra el sector: 
VERDE: No hay peligro. 


ROJO: Hay WIGANES en el sector. Estad preparados. Debeis disponer el comando 
de COMBATE. 


.- VISION DE LARGO ALCANCE 


Para cada sector adyacente a tu posición actual se expresa un mínimo de 3 digitos: 


DIGITO NUMERO DE...... (en el sector) 
O PRIMERO WIGANES 
O MEDIO BASES ESTELARES 
O ULTIMO ESTRELLAS 


Una BURBUJA larga indica que se trata de un sector fuera de la Galaxia 
DESTRUCCION DE WIGANES 


Los WIGANES se destruyen mediante la modalidad de COMBATE con TAQUION-LA- 
SER. 


.- TAQUION-LASER 


Los rayos TAQUION viajan a través de estrellas u otra cosa que les pueda obstaculizar. 
Utilizan poca energía pero son bastante imprecisos. Elige la potencia de cada LASER 
de 0a 100. Cuanto mayor es la potencia mayor es la probabilidad de impactar pero con 
ello se utiliza más enegía. 


Los TAQUIONES pueden destruir o averiar los WIGANES. Una nave averiada no pue- 
de hacer fuego tras tí. Sin embargo, si te alejas de una nave averiada y vuelves al cabo 
del tiempo puede que haya sido ya reparada. 

MAGNETO-LASER 


Los MAGNETOS usan más energía que los TAQUIONES, pero para acertar se le ha de 
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dar el curso correcto (de la misma forma que se hace para la navegación). Los MAG- 
NETOS navegan en línea recta y no pueden atravesar estrellas. 


Después de dar el curso correcto y lanzado el MAGNETO-LASER se ha de volver a po- 
ner la modalidad COMBATE si hay WIGANES en el sector. 


COMBATE: 


Una visión de CORTO alcance te hace visionar el sector. Tienes una breve oportuni- 
dad de: 


P = Activar los TAQUIONES 
T = Introducir el curso para lanzar un MAGNETO-LASER 
S = Disponer un ataque final a los WIGANES antes de que la guerra acabe. 


El disparo de un WIGAN puede hacerte un daño proporcional al NIVEL de tu escudo 
ENERGETICO DE PROTECCION. El equipo de reparación no debe ser utilizado hasta: 


- esperar la hora apropiada (1 unidad por hora) ó 
- localizar y atracar en una base estelar. 


Los WIGANES pueden destruir bases estelares. 
Se puede mantener la modalidad COMBATE hasta que: 


- No haya más WIGANES en el sector Ó 
- Tu presiones S para un ataque final. 


ESCUDO PROTECTOR DE ENERGIA 
Mediante este comando puedes utilizar a la vez 500 unidades de energía para proteger- 


te contra un ataque. La mayor parte de tu energía la vas a usar en este escudo, que es la 
mejor protección, aunque no protege al 100%. 


.- CONTROL DE DAÑOS 


Mediante este comando se relacionan toda una serie de partes del equipo de lanave y 
se establece si funciona o está dañada. Normalmente una avería lleva unas 20 horas de 
reparación (cada comando se mantiene durante 1 hora). 


Si el daño es muy grande (p.e. 900) la reparación solo puede realizarse en una BASE 
ESTELAR del tipo BETA. 


LIBRERIA DEL COMPUTADOR DE LA NAVE 
Puedes preguntar al computador de la nave por: 
1) SITUACION DE LA GALAXIA, que te dice: 


- NUMERO DE WIGANES fuera de combate 
- NUMERO DE BASES ESTELARES fuera de combate 
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- HORAS hasta el ataque final de los WIGANES 


2) CARTA GALACTICA. Muestra la disposición de los 64 sectores de la galaxia. Da de- 
talles (como en la visión de largo alcance) para aquellos sectores que están a tu alre- 
dedor. 


TRAYECTORIA. Calcula la trayectoria y factor requerido para navegar entre la estrella 
y el punto final que tú especifiques. Debes introducir cada una de las 4 coordenadas 
separadamente (Atención: si la trayectoria resultante es un número muy grande el 
factor estará distorsionado). 


4) BASES ESTELARES. Lista la posición de todas las Bases estelares en la Galaxia. 


5) MAGNETO LASER. Calcula la trayectoria requerida por cada torpedo para acertar a 
los WIGANES en el sector en que te encuentras. 


6) MANUAL DE ATRAQUE. Te dá el control de la nave en la fase final del atraque. 
Tienes que guiar la nave hasta la entrada de la base. Usa las teclas con flechas (p.e. 
5-8). Si presionas el 5 continúaras moviéndote hasta que paras el movimiento me- 
diante la presión del 8. Si presionas dos veces el 5 la velocidad de viaje es doble. 
Debes: 

- Atacar en la base a velocidad norma! 
- Evitar el choque con la Base estelar 
- Permanecer en la pantalla 


9.- RENDICION 


Si te rindes termina el juego. 


CONSEJOS PARA JUGAR A LA GUERRA DELAS GALAXIAS 


El comando más útil es el 8 (computador Nave), 2 (Mapa Galáctico). Con él conoces la 
posición de la NAVE ERIDANUS y las de las Naves WIGANAS en los sectores colindantes. 


El avance más normal en la navegación es un factor de distancia =1. Para ser prudentes 
se ha de avanzar sólo al sector estelar que se conozca previamente mediante el mapa 
galáctico o la visión lejana. (Si queda averiada la visión lejana se puede utilizar la opción 
del mapa galáctico). 


No hay que tener miedo a las naves Wiganas aunque sean varias. Si se entra en un sector 
con una nave Wigana al alcance de un impacto con dirección un número entero (p.e. 2, 
Ó 5 pero no 2,2.5 6 4,7.5), entonces es eficaz emplear el MAGNETO - LASER. Si ésto no 
sucede o las naves son más de una (2, 36 4) entonces se debe utilizar el taquión laser (que, 
además, atraviesa las estrellas con sus disparos). 


Antes de entrar en un sector con naves Wiganas se ha de poner en funcionamiento el 
escudo protector con 500 unidades. 
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Un taquión con 100 unidades puede que elimine o sólo averie a una nave Wigana. Un 
consejo muy útil es presionar la P desde el principio que se vaya a utilizar el taquión, de 
forma que los wiganes no puedan disparar primero y averiar el taquión. 


Cuidado con los movimientos fargos o a ciegas porque es fácil salir de la Galaxia y perder 
la partida. 


Buena suerte. 


El programa ocupa 17 K de memoria. Para utilizarlo con 16 K se deben borrar las seten- 
cias REM (9600 hasta el final). 

Si no funciona todavía se ha de adoptar alguna solución drástica, eliminando p. e. todas las 
sentencias relativas a la BASE BETA y los comandos correspondientes al Computador 


de la nave. 


PROGRAMA NUM. 25 
LAGUERRA DELAS GALAXIAS 


ESTAMOS EN EL GALACTICO 9183 
DESPUES DE LA GRAN GUERRA 


LA FEDERACION DE SISTEMAS ESTE- 
LARES DE UNA LEJANA GALAXIA ES- 
TA AMENAZADA DE MUERTE POR 
LOS WIGANES INVASORES 


LOS WIGANES HAN DESTRUIDO YA 
PARTE DE LA FLOTA DE LA FEDERA- 
CION. PERO HAY TODAVIA UNA ESPE- 
RANZA: 


FLASH GORDON, COMANDANTE DE 
LA NAVE ERIDANUS, TIENE EN SU 
TRIPULACION AL ANDROIDE ORLOC ( 
EL COMPUTADOR TOTAL) 


PODRAN VENCER A LOS WIGANES 
CON TU AYUDA? 


G INFORMA: 


EN ESTE MOMENTO HAY 24 NAVES 
WIGANAS HOSTILES EN LA GALAXIA. 


TU MISION ES DESTRUIRLAS TODAS 
ANTES QUE ELLAS ATAQUEN LAS NA- 
VE NODRIZA DENTRO DE 116 HORAS. 


QUEDAN AUN, EN FUNCIONAMIENTO 
5 BASES ESTELARES EN LA GALAXIA 
PARA REPARACIONES Y RE-ARMA 
MENTO 


PARECE QUE LA BATALLA SE ESTA 
DESARROLLANDO  —SATISFACTORIA- 
MENTE. 


PRESIONA CUALQUIER TECLA 
COMANDOS: 


1- NAVEGACION 
2-VISION CERCANA 
3-VISION LEJANA 
4-TAQUION-LASER 
5-MAGNETO-LASER 
6-ESCUDO 

7-CONTROL AVERIAS 
8-COMPUTADOR NAVE 
9-a ta "RENDICION "atea 


COMANDO NUMERO? (1-9,0 = AYUDA) 
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NAVEGACION 


no 
BhoOo 


4 

2 

3 

RUMBO? (0-8) 

VISON CERCANA 

SECTOR ORION 2 
a , : CONDICION 


: VERDE 
E 


presiona cualquier tecla 


VISION LEJANA 
008 305 000 
010 000 000 
000 000 004 

SECTOR ORION 2 


PRESIONA CUALQUIER TECLA 


TAQUION-LASER 


KEBENFORMA: 


MIS SENSORES INDICAN QUE NO HAY 
WIGANES EN ESTE SECTOR, CAPITAN 


presiona cualquier tecla 
MAGNETO-LASER 

8 1 
6 0 2 

4 3 


INTRODUCE 
LASER 


TRAYECTORIA DEL 


ESCUDO 


ENERGIA OPERACIONAL 
25000 
ESCUDO DE ENERGIA ACTUAL: O 


ACTUAL: 


ENERGIA TOTAL DISPONIBLE: 25000 


CUANTAS UNIDADES PARA EL ES- 
CcUDO? 


CONTROL AVERIAS 


NAVEGACION EN SERVICIO 

VISION CERCANA EN SERVICIO 
VISION LEJANA EN SERVICIO 
TAQUION-LASER EN SERVICIO 
MAGNETO-LASER EN SERVICIO 
ESCUDO EN SERVICIO 

CONTROL AVERIAS EN SERVICIO 
COMPUTADOR NAVE EN SERVICIO 


PRESIONA CUALQUIER TECLA 
COMPUTADOR NAVE 

1-SITUACION 

2-MAPA GALACTICO 

3-TRAYECTORIA 

4-BASES ESTELARES 

5-PROYECTILES 

6- MANUAL ATRAQUE 

COMANDO NUMERO? (1-9,0 =AYUDA) 


SITUACION 


“ORLOS INFORMA: 


EN ESTE MOMENTO HAY 38 NAVES 
WIGANAS HOSTILES EN LA GALAXIA. 


TU MISION ES DESTRUIRLAS TODAS 
ANTES DE QUE ELLAS ATAQUEN LA 
NAVE NODRIZA DENTRO DE 58 HO- 
RAS. 


QUEDAN AUN, EN FUNCIONAMIENTO 
5 BASES ESTELARES EN LA GALAXIA 
PARA REPARACIONES Y RE-ARMA- 
MENTO. 


PARECE QUE LOS WIGANES NOS TO- 
MAN LA DELANTERA, CAPITAN. 


PRESIONA CUALQUIER TECLA 


MAPA GALACTICO 


008 305 000 


010 000 000 
000 000 004 


TE ENCUENTRAS EN EL SECTOR (5,4) 
ORION 2 


PRESIONA CUALQUIER TECLA 
TRAYECTORIA 


COORDENADAS ACTUALES: (5,4) 
COORDENADAS DE PARTIDA? 
COORDENADAS DE DESTINO? 


BASES ESTELARES 


(1,5) ARGUS 1 
(2,2) CETUS 4 
(3,8) LEO 2 
(5,3) ORION 1 
(8,4) LYRA 4 


PRESIONA CUALQUIER TECLA 


PROYECTILES 

ÉS CGENFORMA: 

MIS SENSORES INDICAN QUE NO HAY 
WIGANES EN ESTE SECTOR, CAPITAN 


PRESIONA CUALQUIER TECLA 


MANUAL ATRAQUE 

NO HAY BASES ESTELARES EN ESA 
POSICION - PROCEDIMIENTO DE 
ATRAQUE CANCELADO. 
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1 REM £khlEÉLRND7LEN m ?/ PO- 
KE (PAUSE) E] .?[NA CLS $4 LLIST 
TAN 

2LETBS$=” 

3 RAND 

4 LET!=2 

5 LETFF=100 

6 GOSUB 9600 

8 FAST 

10 DIMR(9) 

20 DIM G$(100,4 
30 DIM S$(5,5) 
40 DIM R$(9,16) 
41 LET R$(1) =" NAVEGACION” 

42 LET R$(2) = "VISION CERCANA” 
43 LET R$(3) =”*' VISION LEJANA” 
44 LET R$(4) ='TAQUION-LASER”' 
45 LET R$(6) ="MAGNETO-LASER”” 


(32) ” 


46 LET R$(6) =''ESCUDO”” 

47 LET R$(7) ='"' CONTROL AVERIAS” 

48 LET R$(8) ='' COMPUTADOR NA- 
VE” 

49 LET RA$(9) =” RENDICION ” 

50 DIM C$(6,14) 

51 LET C$(1) =""SITUACION” 

52 LET C$(2) ='"MAPA GALACTICO” 

53 LET C$(3) = TRAYECTORIA” 

54 LET C$(4) =''BASES ESTELARES” 

55 LET C$(5) ='**PROYECTILES” 

56 LET C$(6) ='"MANUAL ATRAQUE 


60 LET N$(16,10) 
61 LET N$(1) =""CETUS” 


62 LET N$(2) =”"VIRGO” 
63 LET N$(3) =”ARGUS”” 
64 LET N$(4) =''CYGNUS” 
65 LET N$(5) = "TAURUS” 
66 LET N$(6) =''GEMINI” 
67 LET N$(7) =”AURIGA”” 
68 LET N$(8) =''LEO” 

69 LET N$(9) =*"CANCER” 


70 LET N$(10) =”"ORION” 

71 LET N$(11) ="”"SCORPIO” 
72 LET N$(12) = '""PEGASUS”” 
73 N$(13) =**PISCIS”” 

74 LET N$(14) ="LYRA” 

73 LET N$(15) =”DRACO” 
76 N$(16) =''BOYERO” 

80 LETB=0 

90 LETK=0 

95 FORL=1T0O 10 
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100 FORM =1 TO 10 

101 LETZ=L*10+M-10 

102 LET G$(Z) =' E 

103 IFL=10RL=100RM=1ORM= 
10 THEN GOTO 168 

105 LET G$(Z) ='"000”* 

108 FORN=1TO3 

110 LETX=RND 

115 IF X>=.974 THEN GOTO 155 

120 X>=.35 THEN GOTO 165 

125 IF X>=.08 THEN GOTO 145 

130 LET G$(Z,1) =STR$ (VAL G$(Z,1) + 
INT (RND*3 + 1)) 

140 GOTO 165 

145 LET G$(Z,3) =STR$ (VAL G$(Z,3) 
+ INT (RND*6 + 1)) 

150 GOTO 165 

155 LET G$(Z,2) ="1” 

165 NEXT N 

166 LET B =B+VAL G$(Z,2) 

167 LETK =K+VAL G$(Z,1) 

168 NEXT M 

169 NEXT L 

170 LETT =INT(RND*K *5 +50) 

180 LET R=INT (RND*8 + 2) 

185 LET C=INT (RND*8 + 2) 

190 LET X =INT (RAND *5+ 1) 

200 LET Y =INT (RND*5 + 1) 

210 LET E =25000 

220 LETS=0 

290 SLOW 

300 GOSUB 8100 

305 GOSUB 9000 

310 GOSUB 1500 

315 GOSUB 9000 

320 PRINT '""COMANDOS:” y, 

330 PRINT ¡ A 

340 PRINT 

360 FORL=1T0O9 

370 PRINT L;”-";R$(L) 

380 NEXT L 

390 PRINT AT 21,0;”COMANDO NU- 
MERO? (1-9,0 = AYUDA)” 

400 LET 1$=INKEY$ 

410 IF I$<*0” OR 1$>'9'”* THEN GOTO 
400 

415 CLS 

420 IF 1$='"0'*? THEN GOTO 320 

430 LET | =VAL1$ 

435 IF 1|=9 THEN STOP 

440 PRINT RS(1); 


450 IF R(I) =0 THEN GOTO 500 

460 PRINT "AVERIADA” 

470 GOTO 390 

500 PRINT 

520 GOSUB 1*1000 

522 LETT=T-1 

526 IF T=0THEN GOTO 9500 

527 GOSUB 9000 

530 FORL=1T08 

540 IF R(L) =0 THEN GOTO 580 

550 LET R(L) =R(L) — 1 

555 LETE=E-5 

560 IF P(L)=0 THEN PRINT RS(L); 
”REPARADA.” 

570 1F R(L)0 THEN PRINT  R$(L); 
"TIEMPO  REPARACION:”;R(L); 
"HORA? +("5” AND R(L)<>) + 


.. 5 


580 NEXT L 
590 GOTO 390 
999 STOP 

1000 PRINT — ” 

1001 LET S$(X,Y)="'.” 

1002 LETZ=R*10-10+C 

1005 PRINT AT 3,0;"7 8 1” 

1010 PRINT 6 0 2” 

1015 PRINT 5 4 3” 

1020 PRINT AT 21,0;”RUMBO? (0- 8)” 

1025 INPUT D 

1026 IF D<o OR D>8 THEN GOTO 1025 

1027 IF D=0 THEN RETURN 

1030 PRINT AT 21,0;”FACTOR DE DIS- 

TANCIA (0.2- 8)” 

1033 INPUT W 

1035 IF W<0 THEN GOTO 1033 

1036 LETP=X 

1037 LETQ=Y 

1038 IF W =0THEN RETURN 

1040 FOR L=.2 TO W- INT W+(W= 

INT W) STEP .2 

1042 LETE=E-10 

1044 IF E<=0 THEN GOTO 9400 

1045 GOSUB 1300 + 100*(D<>INT D) 

1055 IF P<.5 OR P>=5.5 OR Q()5 OR 0%) 

=5.5 THEN GOTO 1070 :l 

1060 IF SS(P,Q)<>”.”” THEN GOTO 1250 

1062 LET X =INT (P+.5) 

1064 LET Y =INT (Q+ .5) 

1065 NEXT L 

1066 LET X =INT (P+.5) 

1067 LET Y =INT (Q+.5) 


(10) 


,” 


1070 IF W<1 THEN GOTO 1254 

1072 LETP=R 

1073 LETOQ=C 

1075 FORL=1 TO INT W 

1076 LETE=E-50 

1077 IF E<=0 THEN GOTO 9400 

1078 GOSUB 1300 + 100 *(D<>NT D) 

1080 IF P<1.50R P>=9.5 OR Q<1.5 OR 
Q>=9.5 THEN GOTO 1175 

1082 LETC=0Q 


1084 LETR=P 

186 NEXT L 

1087 LETC=INT (C+.5) 
1088 CLS 


1089 LET R=INT(R+.5) 

1090 GOTO 1500 

1175 PRINT AT 21,0; ERE. ESTAS 
FUERA DE LA GALAXIA.” 

1180 STOP 

1250 PRINT AT 19,0;”FACTOR DE DIS- 
TANCIA DESACTIVADO POR MA- 
LA NAVEGACION.” 

1252 GOSUB 9000 

1254 CLS 

1255 LET R=INT (R+.5) 

1256 LET C=INT (C+.5) 

1257 GOTO 2005 

1300 LET Q=Q+(D>=1 AND D<=3)- ( 
D>=5 AND D<=7) 

1310 LET P=P+(D>=3 AND D<=5)-( 
D=7ORD=80RD=1) 

1320 RETURN 

1400 LET Q=Q+SIN (D/4*PI) 

1410 LETP=P-COS (D/4*PI) 

1420 RETURN 

1500 LETZ=R*10+C-10 

1503 LETA =INT (R/2- 1) 

1504 LET F =INT (0/2) 

1505 LET P$=NS(A *4*F)+STR$(R*2-A” 
4-3+C-F*2) 

1509 FORL=1T05 

1510 LET S$(L) =".....” 

1520 NEXTL 

1530 LET S$(X,Y)=”E” 

1540 IF G$(Z,3) ="'0'” THEN GOTO 1580 

1550 FOR L =1 TO VAL G$(Z,3) 

1560 GOSUB 1900 

1565 LET S$(P,Q)="'*” 

1570 NEXTL 

1580 IF G$(Z,1) ="'0'”* THEN GOTO 1630 
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1590 FORL=1TO VAL G$(Z,1) 
1600 GOSUB 1900 

1610 LET S$(P,Q)="'K” 

1620 NEXT L 

1630 IF G$(Z,2) ="'0'"” THEN GOTO 1660 
1640 GOSUB 1900 

1650 LET S$(P,Q)=""B” 

1660 LET G$(Z,4) =”Y” 

1662 LET G$(Z-11,4) =""Y" 


1663 LET G$(Z-1,4)=”Y” 
1664 LET G$(Z + 9,4) ="Y” 
1666 LET G$(Z— 9,4) =”Y” 
1667 LET G$(Z+1,4)="Y” 


1668 LET G$(Z + 11,4) ="Y” 
1669 LET G$(Z- 10,4) =" Y” 


1670 LET G$(Z+ 10,4) ="'Y” 

1675 GOTO 2005 

1900 LET P=INT(RND*5+ 1) 

1910 LETQ=INT(AND*5+ 1) 

1920 IF S$(P,Q)<>”'.”* THEN GOTO 1900 

1930 RETURN de E 

2000 PRINT Y Jas * * 

2006 PRINT ''SECTOR”';P$; 

2007 LET S$(X,Y)="”E” 

2009 FORL=1TO5 

2010 FORM=1T05 

2020 PRINT AT L*3,M *3;S$(L,M) 

2030 NEXT M 

2040 NEXT L 

2042 IF G$(Z,1)='""0'” THEN PRINT AT 
4,20;”'CONDICION”';¡AT 5,22;” 
VERDE” 

2044 IF G$(Z,1)>"0” THEN PRINT AT 
4,20; "CONDICION”; AT 5,23; 
ROJA A 

2046 PRINT AT 6,20;” di 

2049 IF I<>4 AND |I<>5 AND G$(Z,1) " 
0” AND RND<.5 THEN GOTO 
4055 

2050 RETURN y 6 

3000 PRINT "——1 panama? 

3010 FORL=1T03 

3020 FORM=1T0 3 

3030 PRINT AT L*4,M*4;G$((R +L)*10+ 
C + M- 32)(T0O 3) 

3040 NEXT M 

3050 NEXT L 

3060 PRINT '"'SECTOR”;P$ 

3070 RETURN  ,, 

4000 PRINT * ———— » 
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4002 LETZ=R*10+C-10 

4005 IF G$(Z,1)<'"1'” THEN GOTO 4900 

4010 PRINT "POTENCIA DEL TAQUION 
2 (0- 100)” 

4020 INPUT FF 

4025 IF FF<O OR FF>100 THEN GOTO 
4020 

4030 CLS 

4040 GOSUB 2005 

4057 IF G$(Z,1) =""0'” THEN RETURN 

4058 PRINT AT 18,0;B$;BS;B$ 

4060 PRINT ''PULSA:P=TAQUION S = 
PARAR T=MAGNETO” 

4063 FORL=1TO 30 

4065 LET I$ =INKEYS 

4066 IF 1$=””' THEN NEXT L 

4067 PRINT AT 21,0;B$ 

4068 IF R(5) =0 AND I$="'T'” THEN GO- 
TO 4800 

4070 FORL=1T0O5 

4080 FORM=1TO5 

4082 IF S$(L,M) =”'B” THEN GOTO 4700 


4083 IF S$(L,M)='""*%' THEN GOTO 
4150 

4085 IF S$(L,M)<>'K”' THEN GOTO 
4300 


4090 PRINT AT 18,0;”LOS WIGANES 
DISPARAN””;BS$ 

4095 IF RND*1000<S THEN GOTO 4150 

4100 PRINT AT 18,0;”*IMPACTO DE 
LOS WIGANES””;B$;B$ 

4105 LET A =INT (RND*6+ 2) 

4106 PRINT AT 19,0;R$(A);”AVERIA- 
DA” 

4108 IF RND<.05 THEN GOTO 4130 

4110 LET R(A) =R(A) + INT(RND*5+1) 

4120 GOTO 4150 

4130 LET R(A) =1000 

4140 PRINT "IRREPARABLE”” 

4150 IF I$<>*P** ORR(4)>0 THEN GO- 
TO 4300 

4151 IF RAND*100>FF THEN GOTO 4250 

4152 LETE=E-FF 

4154 IF E<=0 THEN GOTO 9400 

4160 IF RND<.5 THEN GOTO 4210 

4163 PRINT AT 18,0; WIGAN AVERIA- 
DO””;¡B$ 

4166 PRINTATL*3,M*3;"K” 

4169 LET S$(L,M)="K” 

4172 POKE 16515,2 

4175 GOTO 4230 


4210 PRINT AT 18,0;'"WIGAN AVERIA- 
DO””;B$ 

4214 LET G$(Z,1) =STR$ (VAL Gs$(Z,1) 
-1) 

4218 LETK=K-1 

4221 IF K=0THEN GOTO 5450 

4223 PRINT AT L*3,L*3;”.” 

4226 LET S$(L,M)="””.*” 

4228 POKE 16515,20 

4230 LET A =USR 16514 

4235 1F G$(Z,1) =''0”* THEN RETURN 

4240 GOTO 4300 

4250 PRINT AT 18,0;”"TAQUION-LASER 
FALLADO””;¡B$;B$ 

4300 NEXT M 

4310 NEXT L 

4320 IF 1$=”'S'”' THEN RETURN 

4330 GOTO 4057 

4700 PRINT AT 19,0;”LOS WIGANES 
DISPARAN ”;B$;B$ 

4710 1F RAND«.5 THEN GOTO 4300 

4720 PRINT ''BASE ESTELAR DESTRUI- 
DA” 

4730 LETB=B-1 

4740 LET G$(Z,2) =*'0” 

4750 PRINT AT L*3,L*3;"B” 

4755 POKE 16515,200 

4756 LETF =USR16514 

4760 PRINT AT L*3,M*3;”.” 

4765 LET S$(L,M)=”".” 

4770 GOTO 4300 

4800 INPUT D 

4805 IF D<O OR D>8 THEN GOTO 4800 

4810 IF E<500 THEN GOTO 4065 

4820 GOTO 5075 

4825 IF G$(Z,1) ="'0'* THEN RETURN 

4830 GOTO 4065 

4900 PRINT "GREDC INFORMA:””,,,'” 
MIS SENSORES IN-DICAN QUE NO 
HAY WIGANES EN ESTE SECTOR, 
CAPITAN” 

4910 RETURN (15) 

5000 PRINT ——————___—_—_ 

5010 PRINT AT 4,0;'7 8 1” 

5020 PRINT 6 0 2” 

5030 PRINT *'5 4 3” 

5040 PRINT AT 21,0; "INTRODUCE TRA- 
YECTORIA DEL LASER” 

5050 INPUT D 

5051 IF E<500 THEN GOTO 5800 

5053 IF D<0 OR D>8 THEN GOTO 5050 


5060 IF D=0 THEN RETURN 

5062 CLS 

5070 GOSUB 2005 

5075 LETE=E-500 

5080 LETP=X 

5090 LETQ=Y 

5100 GOSUB 1300 + 100*(D<>ANT D) 

5110 1F P<.5 OR P>=5.5 OR Q<.5 OR Q> 
=5.5 THEN GOTO 5500 

5115 PRINT AT P*3,Q*3;' 

5120 IF S$(P,Q)=”'.” THEN GOTO 5100 

5125 POKE 16515,50 

5127 POKE 16537, 1 

5130 IF S$(P,Q)=”"K'” OR S$(P,Q)=”K” 
THEN GOTO 5400 

5140 IF S$(P,Q)=""B'”” THEN GOTO 5300 

5150 PRINT AT 19,0;”0H... HAS DES- 
TRUIDO UNA ESTRELLA.” 

5155 LET M=USR 16514 

5160 LET S$(P,Q)=”.” 

5170 LET G$(Z,3)=STR$ (VAL G$(Z,3) 
Pa 1) 

5180 GOTO 4055 

5300 PRINT AT 17,0; "LA BASE ESTE- 
LAR QUE ACABAS DE DESTRUIR 
SE CONSTRUYO PARA UTILIZAR- 
LA Y NO PARA PRACTICAS DE 
TIRO” 

5305 LET S$(P,Q)=”.” 

5310 LET G$(Z,2) ="0” 

5320 LETB=B-1 

5330 IF B=0 THEN PRINT AT 20,9;” 
ESTAS EN TUS UNICOS DOMI- 
NIOS. SOLO TE QUEDA UNA BASE 
ESTELAR.” 

5331 FORL=1TO 90 

5332 NEXT L 

5333 PRINT AT 17,0;B$;B$;B$;B$;BS 

5335 LET M=USR 16514 

5340 GOTO 4055 

5400 PRINT AT 20,0;”WIGAN ELIMI- 
NADO-] y 

5405 LET M =USR 16514 

5410 LET G$(Z,1)=STR$ (VAL G$(Z,1) 
pue 1) 

5420 LET S$(P,Q)=”.” 

5430 LETK=K-1 

5440 ¡IF K<>0 THEN GOTO 4055 

5450 CLS 

5460 PRINT ”FELICITACIONES-HAS 
DESTRUIDO TODA LA FLOTA DE 


»” 


LOS WIGANES” 
5470 PRINT '"MERECES LA ETERNA 
GRATITUD DE TODA LA GALAXIA” 
5475 PRINT ,,”"SIN EMBARGO, OTRA 

FLOTA WIGANA HA SIDO OBSER- 

VADA, LISTA PARA OTRO ATA- 

QUE.” 

5480 PRINT,,'*"SE NECESITA DESESPE- 
RADAMENTE UN BUEN COMAN- 
DANTE ESPACIAL PARA SALVAR 
ALA HUMANIDAD” 

5482 PRINT **QUERRIAS SERLO TU? 
(S/N) 

5484 IF INKEY$="'S” THEN GOTO 5490 

5486 IF INKEY$<>'N” THEN GOTO 
5484 

5488 STOP 

5490 CLS 

5495 RUN 

5499 STOP 

5500 PRINT AT 18,0;'"'LASER FALLADO: 
TRAYECTORIA INCORRECTA.” 

5505 GOTO 4055 

5800 PRINT AT 18,0;”"INSUFICIENTE 
ENERGIA PARA DISPARAR EL LA- 
SER -SE ACONSEJA NO DISPA- 
RARLO.” 

5805 RETURN 

6000 PRINT *—_—_—_—M__——_ > 

6005 LETE=E+S 

6010 PRINT "ENERGIA OPERACIONAL 
ACTUAL:”¡E-S 

6020 PRINT *'ESCUDO DE ENERGIA 


ACTUAL:'”*;S 
6025 PRINT "ENERGIA TOTAL DISPO- 
NIBLE:”;E 


6030 PRINT AT 6,0;””CUANTAS UNIDA- 
DES PARA EL ESCUDO?” 

6040 INPUT S 

6050 IF S<0 OR S>500 OR S>E THEN 
GOTO 6040 

6060 LETE=E-S 

6070 PRINT "EL ESCUDO GASTA”';S; 
"UNIDADES, CAPITAN.” 

6080 RETURN 

7000 PRINT > 

7010 FORL=1T08 

7020 IF R(L) =0 THEN GOTO 7070 

7030 PRINT R$(L); TIEMPO PARA RE- 
PARACION”;R (L) 

7040 LET R(L)=R(L)+1 


(14) ” 
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7050 NEXT L 

7060 RETURN 

7070 PRINT R$(L); "EN SERVICIO” 

7080 GOTO 7050 

8000 PRINT ”” 

8005 PRINT 

8010 FORL=1TO6 

8015 PRINT L;”'-";CS$(L) 

8020 NEXT L 

8025 PRINT AT 21,0;”COMANDO NU- 
MERO? (1-9,0=AYUDA)”” 

8030 LET | = CODE INKEY$-— 28 

8035 IF |< OR 1>8 THEN GOTO 8030 

8038 CLS 

8040 IFI|=0 THEN RETURN 

8045 PRINT C$(1) 

8050 GOTO 8000 + 1*100 


(16) ” 


8100 PRINT ,,'% INFORMA:”” 

8110 PRINT ,,” STE MOMENTO 
HAY”;K 

8120 PRINT *'NAVES WIGANAS HOSTI- 
LES” 


8125 PRINT "EN LA GALAXIA.” 

8130 PRINT,,'"TU MISION ES DES- 
TRUIRLAS””; 

8135 PRINT '*"TODAS ANTES QUE 
ELLAS ATAQUEN LA”; 

8140 PRINT "NAVE NODRIZA DENTRO 
DE”;T HORAS.” 

8150 PRINT ,,''QUEDAN AUN, EN FUN- 
CIONAMIENTO””;B;” >; 

8155 PRINT "BASES ESTELARES””;""EN 
LA GALAXIA PARA”; 

8160 PRINT '*REPARACIONES Y RE- 
ARMAMENTO.” 

8165 PRINT 

8170 IF T>K*4 THEN PRINT "PARECE 
QUE LA BATALLA SE ESTA DESA- 
RROLLANDO SATISFACTORIA- 
MENTE.” 

8180 IF T<=K*4 THEN PRINT ”PARE- 
CE QUE LOS WIGANES NOS TO- 
MAN LA-DELANTERA, CAPITAN. 


8190 RETURN (6) (5) 

8200 PRINT A Vi EE 
8205 FORL=1T08 

8210 FORM=2T09 (3) 


8220 PRINT AT L*2,M*4- 8; 
8225 GOSUB 9100 
8230 IF G$(2,4) =""Y”* THEN PRINT AT 


L*2,M*4-8;G$(Z, TO 3) 

8240 NEXT M 

8250 NEXT L 

8252 PRINT "TE ENCUENTRAS EN EL 
SECTOR (¡R-=1;","¡C0-1;”)” 

8253 PRINT PS. 

8260 RETURN m (6) 

8300 PRINT A dl ci 

8305 PRINT "COORDENADAS ACTUA- 
LES: R-=13,%C0-1;)” 

8310 PRINT ''COORDENADAS DE PAR- 
TIDA” 

8320 INPUT P1 

8325 IF LEN STR$ P1<>1 THEN GOTO 
8320 

8330 INPUT Q1 

8332 IF LEN STR$ Q1<>1 THEN GOTO 


8320 

8335 PRINT '"'COORDENADAS DE DES- 
TINO?” 

8340 INPUT P 

8342 IF LEN STR$ P<xA THEN GOTO 
8320 

8345 INPUT OQ 

8347 IF LEN STR$ Q<>1 THEN GOTO 
8320 

8350 LET W=SQR ((P-— PI) *(P-—P1)+(0 
- Q1)*(Q - Q1)) 


8351 IF W =0 THEN GOTO 8370 

8352 LET D=ASN ((Q- Q1)/W)*4/ <. 

8355 IF P>P1 THENLETD=4-D: 

8357 IFD<=0THENLETD=D+8 

8360 PRINT '"TRAYECTORIA:'';D 

8370 PRINT "DISTANCIA: ”';¡W 

8380 RETURN — y, E 

8402 PRINT".' -—NRKÁA  * 

8405 FORL=1T010 

8407 FORM=1T0 10 

8410 IF G$(L*10+ M- 10,2)<>*1'” THEN 
GOTO 8460 

8420 LET A =INT (L/2- 1) 

8430 LET F=INT (M/2) 

8440 LET P$=NS$(A *4+ F)+STR$ (L*2- 
A*4-—3+M-F*2) 

8450 PRINT PP L-13" M4); 
TAB 8;P$ 

8460 NEXT M 

8470 NEXT L 

8480 RETURN 

8500 PRINT— ' 9 > 

8501 IF G$(Z,1)=""0” THEN GOTO 4900 


8502 LET P1 =X 

8505 LET Q1 =Y 

8510 FORP=1TO5 

8520-FORQ =1TO5 

8530 IF S$(P,Q)=""'K” THEN GOSUB 
8350 

8540 NEXT Q 

8550 NEXT P 

8560 RETURN 

8600 IF G$(Z,2) ='*1”* THEN GOTO 8630 

8610 PRINT '*NO HAY BASES ESTELAR 
ES EN ESA POSICION - PREOCE- 
DIMIENTO DE ATRAQUE CANCE- 
LADO.” 

8620 RETURN 

8630 GOTO 8700 

8635 LET M =INT (RND*10+ 1)*10 

8640 LETE=E-M 

8645 PRINT AT 19,0;”ATRAQUE FA- 
LLIDO:”*;M,”*UNIDADES DE 
ENERGIA PERDIDAS” 

8650 IF E<=0THEN GOTO 9410 

8655 RETURN 

8660 CLS 

8662 PRINT '*ATRAQUE CORRECTO” 

8665 PRINT '""COMENZANDO AHORA 
LA REPARACION”” 

8670 LET M =LN EXP LN EXP 1 

8675 PRINT  ”*REPARACION TERMI- 
NADA ”” 

8677 LET E =15000-S 

8678 LET M =LN EXP LN EXP 1 

8680 PRINT '*RESERVA DE ENERGIA:”” 
¡E; "GIGAJULIOS”” 


8681 FORL=1T08 

8682 LET R(L)=0 

8683 NEXT L 

8684 POKE 16515,100 

8685 PRINT '"TODOS LOS SISTEMAS EN 
SERVICIO.” 

8688 PRINT "HA COMENZADO LA 

_ CUENTA ATRAS PARA LA SEPA- 

RACION.” 

8689 PRINT AT 10,14;""Ty=1"';AT,11,1 
PL 1 AT12,14," LD >> 

8690 FORL =9TOOSTEP -1 

8692 PRINT AT 11,15;L 

8693 LET M=LN EXP 1 

8694 NEXT L 

8695 PRINT AT 10,113". a 


¡AT 11,11; EXPLOSION ul "¡AT 
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2 E) e 
8696 LET F =USR 16514 
8697 PRINT "VOLVIENDO A LA POSI- 


CION INICIAL.” 
8698 LET M =SIN ASN 1 
8699 RETURN 
6 7) 
8700 PRINT* ——(9—M— » 
8702 LETA=0 


8704 LETF=0 E 

8705 PRINT aros: O. 

8710 PRINT TAB 14;” 

8712 PRINTTAB 13;” (4) Em” 

8714 PRINTTAB 12;” m3 BASE gm. ” 

8716 PRINTTAB 12; MIBETACH ” 

8718 PRINTTAB 13; alar ” 

8720 PRINTTAB 14;” —=(2ar ” 

8725 LETP=3 

8730 LETQ=16 

8735 PRINT AT P,Q;'<>” 

8738 LETE=E-5 

8739 IF E<=0 THEN GOTO 9400 

8740 LET A=A+(INKEYS="6”)-(IN- 
KEY$="7") 

8745 LET F=F+(INKEYS="8”)- ( 
INKEYS ="'5”) 

8750 PRINTATP,Q;” ” 

8755 LETP=P+A 

8760 LETQ=0Q+F 

8764 IF P<O OR P>21 OR Q<0 OR Q530 
THEN GOTO 8635 

8766 PRINT ATP,Q; 

8767 LET M=PEEK 16398 + PEEK 16399 
256 

8768 IF PEEK M=0 AND PEEK (M+1) 
=0 THEN GOTO 8735 

8770 1FP=10ANDQ=16 
THEN GOTO 8660 

8780 GOTO 8635 

9000 PRINT AT 21,0;””PRESIONA CUAL 
QUIER TECLA 

9010 LET I$ =INKEYS 

9020 IF 1$="''* THEN GOTO 9010 

9030 CLS 

9040 RETURN 

9100 LETZ=L*10+M 

9110 RETURN 

9400 CLS 

9410 PRINT AT 19,0;”"ESTAS INMOVIL 
EN EL ESPACIO SIN LA ENER- 
GIA NECESARIA PARA MANTE- 
NER LOS SISTEMAS VITALES.” 
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9420 GOTO 9510 

9500 CLS 

9505 PRINT *"'HAS LLEGADO DEMA- 
SIADO TARDE” 

9510 PRINT ”ATRAQUE EN GRAN ES- 
CALA” 

9520 PRINT "LANZADO SOBRE LA NA- 
VE NODRIZA POR” 

9530 PRINT K;'"NAVES WIGANAS. LA 

9540 PRINT *"'GALAXIA ESTA SENTEN- 
CIADA A MUERTE.” 

9550 STOP 

9600 PRINT ''LA GUERRA DE LAS GA- 


LAXIAS”” 25) 
9605 PRINT ”” ——— 


9610 PRINT AT 2,0;""ESTAMOS EN EL 
GALACTICO 9183 DESPUES DE LA 
GRAN GUERRA” 

9620 PRINT 

9630 PRINT "LA FEDERACION DE SIS- 
TEMAS ESTELARES DE UNA LE- 
JANA GALAXIA ESTA AMENAZA- 
DA DE MUERTE POR LOS WIGA- 


NES INVASORES” 

9940 PRINT 

9942 PRINT **LOS WIGANES HAN DES- 
TRUIDO YA PARTE DE LA FEDE- 
RACION. PERO HAY TODAVIA 
UNA ESPERANZA:” 

9946 PRINT 

9950 PRINT "FLASH GORDON, CO- 
MANDANTE DE LA NAVE ERIDA- 
NUS, TIENE EN SU TRIPULACION 
AL ANDROIDE ORLOC (EL COM- 
PUTADOR TOTAL)”” 

9952 PRINT 

9954 PRINT ""PODRAN VENCER A LOS 
WIGANES CON TU AYUDA?” 

9960 PAUSE 400 

9962 CLS 

9964 RETURN 

9970 PRINT (256*PEEK 16405 + PEEK 
16404 — 16389)/1024 

9972 PAUSE 200 

9974 CLS 

9976 GOTO 1 


9999 GOTO 1 


PARTE IV.- RELACION DE SENTENCIAS PRINT CON CARACTERES INVERSOS 


PROGRAMA 1 
11 (28 H) 
30 (H, 26 espacios inversos, H) 
50 (28 H) 
PROGRAMA 2 
50 DISPAROS 
60 BLANCOS 
PROGRAMA 3 
15 GUSANO 
PROGRAMA 4 
190 PLAFF 
PROGRAMA 5 
120 PLANETA 
PROGRAMA 6 
9000 O.V.N.!. 
9002 TANTEO 
PROGRAMA 7 
85 ATENCION 
460 0 
730 * 
732 * 
735 * 
PROGRAMA 9 
556 SIMON 
558 PUNTUACION 
640 SIMON 
PROGRAMA 10-B 
12 CUATRO EN RAYA/DOS 
PROGRAMA 11 
5 JUEGO DEDADOS 
27 NUM.P 
PROGRAMA 12 
90 NO 
140 ACIERTO 
PROGRAMA 13 
20 JUEGO DE ESPIAS 
130 EMPIEZA: TIENES 10 TIRADAS 
1100 * 
1580 O 
2080 ESPIA 
PROGRAMA 14 
20 EL HOTEL DELAS 1000 HABITACIONES 
130 EMPIEZA: TIENES 10 TIRADAS 
454 PUNTUACION 
1077 PLANTA 
1187 FACHADA 
1300 + 
PROGRAMA 15 
1 OTHELLO 
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206 OTHELLO 
500 TU MUEVES 
600 NEWLINE 
1000 YO GANO 
1005 ENHORABUENA, GANAS TU 
1010 HEMOS EMPATADO A 
PROGRAMA 16 
330 BIEN 
PROGRAMA 17 
20 HEXPAWN-111 
30 TRES, H,O 
1012 HEXPAWN-I!! 
9000 PUNTUACION 
9500 HAS GANADO TU 
9600 HE GANADO YO 
PROGRAMA 18-A 
75 TORRES DE HANOI 
PROGRAMA 18-B 
111? 
211? 
236 ? 
610 NO 
611 SI 
1005 EL JUEGO HA TERMINADO 
1030 TORRES DEHANOI 
1050 PUNTUACION 
PROGRAMA 19 
1012 ALMIRANTES 
1020 FLOTA 
1023 TABLERO, SALVAS 
1027 FAST, 2 
1535 5 
1587 3 
1637 A 
1687 B 
1980 SALVA 
2270 HE GANADO 
2545 =2565 = 2585 = 2605 =0 
2660 SALVA 
2890 HAS GANADO 
3505 =3525 =3545 =3563 =0 
5005 LOS BARCOS-DIAGRAMA 
8753 5 j 
8775 3 
8795 A 
8812 B 
PROGRAMA 20 
30 EL CASTILLO ENCANTADO (aunque dice TENEBROSO”) 
330 ENHORABUENA: HAS DERROTADO AL BRUJO DIABOLICO 
390 MALA SUERTE: TE MATARON 
2010 DRAGON ROJO 


2020 DRAGON VERDE 
2030 DRAGON AMARILLO 
2040 CROTALO DE PLATINO 
2050 CROTALO DE ORO 
2060 CROTALO DE PLATA 
2070 ENANO CON SABLE 
2080 ENANO CON ESPADA 
2090 ENANO CON CUCHILLO 
2100 GNOMO AMIGO 
2110 LUGAR MAGICO 
PROGRAMA 21 
30 TWENTY ROOMS 
171 TWENTY ROOMS 
182 TRES 
183 RESUMEN 
184 PLANO 
290 DINERO 
330 ENHORABUENA, HAS DESCUBIERTO AL ASESINO, EL ARMA Y LA HABITA- 
CION DONDE SE COMETIO El CRIMEN 
390 MALA SUERTE, FALLASTE Y NO PUEDES SEGUIR JUGANDO 
1150 RESUMEN 
1502 MISS BLONDE = 2010 
1503 MISTER BLUE = 2020 
1504 SIGNOR BIANCO = 2060 
1505 MARISCAL VERDE = 2050 
1506 MADAME ROUGE = 2030 
1820 TWENTY ROOMS 200 $ 
1830 HABITACION 
1835 ARMA 
1840 ASESINO 
1507 HERR SCHWARTZ = 2040 
2080 EL TESORO 
2100 LA ADIVINA 
2110 HABITACION CON EL TESORO 
2502 UNA PISTOLA 
2503 UNA CUERDA 
2504 UN HACHA 
2505 UN CANDELABRO 
2506 UNA DAGA 
2507 UNA PORRA 
3200 SOBRE LACRADO 
3250 ADIVINA, LA HABITACIÓN DEL CRIMEN 
3288 HABITACION 
3291 ARMA 
3293 ASESINO 
5080 EL SOBRE LACRADO 
7502 TWENTY ROOMS 
8520 PLANO DE LA MANSION 
8600 16, 17, 18, 19, 20 
8610 11, 12, 13, 14,15 
8620 6, 7, 8, 9,10 
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8630 1, 2, 3, 4, 5 
9710 SOSPECHA 
9728 CORRECTO =9761 = 9782 
9787 ACUSAR 
9860 ACUSACION 
PROGRAMA 22 
100 MINOTAURO =910 =1350 
1390 20 
1480 CAMPEON 
1630 NO 
1740 INSTRUCCIONES 
1795 MINOTAURO 
1800 MATAR AL MINOTAURO 
1832 CAVERNA 
1840 MINOTAURO, TRES NIVELES 
1940 PELIGROS 
1960 BARRERAS 
1970 PILARES ELECTRIFICADOS 
2020 TRAMPILLAS 
2050 UNO 
2070 EMBESTIDA DEL MINOTAURO 
2080 HIERES, LANZA 
3190 HAS GANADO 
3250 HAS PERDIDO 
3270 NIVEL =3570 
3580 SIMBOLOS 
3690 LANZA 
9040 + 
9070 — 
9340 M 
9350 Y 
PROGRAMA 24 
2540 ENHORABUENA 
PROGRAMA 25 
1175 UFFF 
2044 ROJA 
4083 K =4166 = 4169 =5130 
4750 E 
4900 ORLOC =8100 
5400 BUEN DISPARO 
1REMÍ£Kk =ELAND 7 LEN M?/ POKE (PAUSE) 1.?N inversa CLS$4LLISTTAN 
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ARCHIVOS (INDICE) - PARTE V 
PROGRAMA NUM. 


1.- Estrellas más importantes de la VIA LACTEA. (Programa ''STAR””). 
2.- Matrícula de coche europeas (Programa *'"' CADENA”). 

3.- Archivo de cintas (Programa '*CINTA””). 

4.- Sistema Periódico de Elementos químicos (Programa '*ELEM””). 

5.- Programa *"*DIETA”. 


BIBLIOGRAFIA 


- SINCLAIR ZX-81 n*-5.- Aplicaciones Domésticas (INVESTRONICA). 

- El programa DIETA ha sido creado por Pedro OLEA, a quien le agradecemos su desin- 
terés al proporcionárnoslo. 

- Revista ''El Ordenador Personal”, Junio 1.982. 
Algunos consejos para una elección correcta de LOGICAL de gestión de ficheros” por 
Guilhem Bouteloup, pag. 59-70. 


323 
ARCHIVOS 


Un ARCHIVO o FICHERO (FILE) es una acumulación de DATOS realizada con un propó- 
sito y que se puede manipular de alguna manera mediante el ordenador. Normalmente es- 
tos datos están agrupados en LISTAS y cada ARCHIVO consta de varias, cuyos datos se re- 
lacionan entre sí. 


Los archivos pueden ser independientes o utilizarse conjuntamente, dando lugar a las BA- 
SES DE DATOS. 


Las operaciones de gestión de un ARC HIVO pueden ser: 


- DEFINICION. Se han de definir los CONCEPTOS diferentes que queremos incluir en el 
ARCHIVO, estableciendo si dichos conceptos son NUM ERICOS o LITERALES y su longi- 
tud. 


- MODIFICACION. Se han de poder suprimir o añadir nombres a una lista. Esto es muy 
útil puesto que una de las razones de ser de un archivo es que sea *'vivo*”, que éste pues- 
to al día de forma permanente. 


- BUSQUEDA. Un dato se debe poder buscar tanto para consulta como para posible modi- 
ficación. Los datos precisos para llevar a cabo esta búsqueda están determinados previa- 
mente en la definición del ARCHIVO. Puede ser que se pueda acceder a una lista de nom- 
bres (o números) mediante cualquiera de los códigos de las demás listas o sólo se pueda 
acceder a la totalidad de las listas mediante el código de uno de los ARCHIVOS. 


La posibilidad de búsqueda es vital en el fichero de la Empresa (ALMACENES, CLIEN- 
TES, VENTAS), pero se abre como una panorámica amplísima a otros campos (CON- 
SULTORIOS MEDICOS, ENSEÑANZA). Precisamente es en el campo de la enseñanza 
donde es más específica la aplicación de un microordenador como el ZX-81. 


- CLASIFICACION. Mediante una de las claves definidas (LITERAL o NUMERICA) y otro 
criterio de comparación (menor a mayor o viceversa). 


- VISUALIZACION DE PARTE O TODO EL FICHERO. Mediante unos formatos definidos 
previamente o ESTADOS, con posibilidad de imprimir los que interesen. 


La aplicación didáctica de los archivos es evidente. La mayoría de las asignaturas que se 
estudian en EGB y BUP se pueden desarrollar mediante ejercicios y problemas (matemá- 
ticas, física) o preguntas (sociales, lengua, etc.). 


Es para la preparación de estas últimas asignaturas donde el desarrollo de programas me- 
diante archivos es fundamental. 


A continuación estudiaremos algunos ejemplos de la utilización de ARCH IVOS en el 
ZX-81. Estos ejemplos se desarrollan mediante un grado de dificultad creciente, tanto en la 
vertiente de búsqueda y visualización como de clasificación de datos. 


Finalmente expondremos algunas posibles aplicaciones didácticas de los archivos sin en- 
trar en demasiada profundidad, dejando al lector como ejercicios su diseño y depuración. 
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ARCHIVOS EN EL ZX-81 


En el ZX-81 los datos de los archivos se han de almacenar dentro del propio programa. En 
otros sistemas más potentes los datos son independientes del programa; se lee primero el 
programa y luego se le incorporan los datos que en ese momento se necesitan para desarro- 
Ilarlo, pudiendo esto último realizarse mediante ACCESO DIRECTO (FLOPPY), secuencial 
(cinta) o de forma manual. 


Los datos en sí ocupan el espacio que reservemos previamente a las clasificaciones que nos 
interesan mediante sentencias DIM. Las cadenas LITERALES (o de nombres) ocupan nor- 
malmente más espacio BASIC que las númericas. 


Bien, pues vamos a ARCHIVAR, pero también vamos a CLASIFICAR esos archivos y va- 
mos a BUSCAR un dato dentro del archivo. Un ARCHIVO que no pudiera realizar estas co- 
sas sería una simple suma de datos sin relación alguna. 


Comenzamos por CLASIFICAR una cadena. 


1.- CLASIFICACION DE LAS ESTRELLAS MAS IMPORTANTES DE LA VIA LACTEA 
(Programa STAR”, núm. 1) 


Este programa se refiere a la ASTRONOMIA y relaciona ESTRELLAS y CONSTE- 
LACIONES. La mayoría de las estrellas son de primera magnitud pero se incluyen tam- 
bién las de otras magnitudes igualmente importantes. 


Los datos de 42 estrellas se introducen tal como aparecen en la relación sin clasificar. 
Creamos 2 cadenas = A$ (100,15) para 100 estrellas de 15 letras de longitud y B$ 
(100,15) para 100 constelaciones e igual longitud. 


Como se ve la dimensión prevista del archivo (100) se utiliza en un 40%, pero puede uti- 
lizarse también el 60% restante para introducir datos. 


Al introducir las DIM en el programa el ZX-81 ha reservado un área de 100 nombre para 
estrellas y 100 para constelaciones, ambos de 15 caracteres, y las reserva tanto si las 
utilizamos como si no. 


En este ARCHIVO solo vamos a clasificar las estrellas (cadena A3) de MENOR A 
MAYOR. La clasificación se logra mediante las sentencias 31 0-380(1). 


El programa presenta unas opciones: 1. INTRODUCIR DATOS, 2. RELACION DE ES- 
TRELLAS-CONSTELACIONES, 4. GRABACION y 9. MODIFICAR DATOS. A nosotros 
nos interesa la opción 3. CLASIFICACION, para lo cual el ordenador trabaja en FAST. 
Una vez clasificado el fichero indica ''CLASIFICACION TERMINADA", se debe dar 
N/L y pulsar el 2 para listar el archivado ya clasificado. Las estrellas se presentan en 
grupos de 5 debido a la sentencia 210 (2). Si modificamos 200 POR M=1 TO STEP 10 y 
la 210 FOR H=0 TO 9 veremos que (M + H) se mantiene pero ahora cada vez que pul- 
semos la tecla ””.'' aparecerán 10 nombres en la pantalla. 


Para buscar un dato en el ARCHIVO hacemos igual que para modificar un dato, pulsa- 
mos 9 y vemos ''nombre a modificar””. Introducimos el nombre de la estrella (clasifi- 
cada o no) y nos dice qué estrella es y a que constelación pertenece. Claro está que a 
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continuación no la modificamos cuando M ZX-81 nos hace esa pregunta. 


Una forma más ortodoxa de plantear la clasificación sería desgiosando las constelacio- 
nes propiamente, es decir, diferenciando la estrella (A, B,....,X) de la constelación 
(LYRA, ORION). Para ello crearíamos una nueva cadena C$(100,1) y modificaríamos los 
datos de la cadena B$ en ese sentido. Esto no se ha hecho así puesto que se quería pre- 
sentar la clasificación de un solo factor. 

Aquí nos hemos limitado a asignar una letra latina a cada estrella, más o menos corres- 
pondiente a la homóloga letra griega y todas ellas recordadas de memoria, por lo que 
algunas estarán denominadas erróneamente (pero no las de 1* magnitud). 

Para apoyar ésto acompañamos un fragmento bastante amplio del hemisferio norte (Fi- 
gura 17) donde pueden apreciarse las letras griegas correctas correspondientes a al- 
gunas de las estrellas incluidas en el programa (y de otras no incluidas en él). 


(1) Donde la sentencia que realmente clasifica es la 330. 
(2) Se pasa de página pulsando ””.””. 


Ai e 
pu e 
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FIGURA 17 


PROGRAMA NUM. 


VEGA 
ANTARES 
RIGEL 
BETELGEUCE 
ALTAIR 
ARTURUS 
POLARIS 
CANOPUS 
SIRIO 
ALDEBARAN 
CAPELLA 
SPICA 

A CENTAURI 
B CENTAURI 
ALGOL 
REGULUS 
DENEBOLA 
ALCION 
SHEIF 
SCHEDIR 
PROCIOCION 
DENEB 
CASTOR 
POLLUX 
MERKAHB 
BELLATRIX 
A CRUX 

B CRUX 
SCHIRRAZ 
DUHBE 
MERAK 
PHEDDA 
MEGREZ 
ALLIOTH 
MIZAR + (ALCOR) 
ALKAID 
MIRA 
FOMALHAUT 
ALPHARD 
HAMAL 
GEMMA 
UNUK 


A-LYRA 
SCORPIO 
A-ORION 
B-ORION 
A-CAN MINOR 
A-BOOTES 
A-URSA MINOR 
A-ARGUS 
A-CAN MAIOR 
A-TAURUS 
A-AURIGA 
A-VIRGO 
CENTAURUS 
CENTAURUS 
PERSEUS 
A-LEO 

B-LEO 
A-PLEYADES 
E-ORION 
A-CASIOPEIA 
A-CAN MINOR 
A-CYGNUS 
A-GEMINIS 
B-GEMINIS 
A-CETUS 
C-ORION 

CRUX SUDIS 
CRUX SUDIS 
B-CETUS 
A-URSA MAIOR 
B-URSA MAIOR 
C-URSA MAIOR 
D-URSA MAIOR 
E-URSA MAIOR 
F-URSA MAIOR 
G-URSA MAJOR 
A-CETUS 
A-PISCES AUST. 
A-SEXTANS 
A-TRIANGULUM 
A-CORONA BOREAL 
A-SERPERNS 


2-RELACION 


ESTR 


A CENTAURI 
A CRUX 
ALCION 
ALDEBARAN 
ALGOL 


CONSTELACIÓN 


CENTAURUS 
CRUX SUDIS 
A-PLEYADES 
A-TAURUS 
PERSEUS 


2-RELACION 


ALKAID 
ALLIOTH 
ALPHARD 
ALTAIR 
ANTARES 


CONSTELACION 


G-URSA MAIOR 
E-URSA MAIOR 
A-SEXTANS 
A-CAN MINOR 
SCORPIO 


2-RELACION 


ARCTURUS 

B CENTAURI 
B CRUX 
BELLATRIX 
BETELGEUCE 


A-BOOTES 
CENTAURUS 
CRUX SUDIS 
C-ORION 
B-ORION 


2-RELACION 


CANOPUS 
CAPELLA 
CASTOR 
DENEB 
DENEBOLA 


A-GEMINIS 
A-CYGNUS 
B-LEO 


2-RELACION 
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DUHBE 
FOMALHAUT 
GEMMA 
HAMAL 
MEGREZ 


CONSE 


A-URSA MAJOR 
A-PISCES AUST. 
A-CORONA BOREAL 
A-TRIANGULUM 
D-URSA MAIOR 


2-RELACION 


ESTRE: 


MERAK 
MERKAB 

MIRA 

MIZAR + (ALCOR) 
PHEDDA 


E 


2-RELACION 


POLARIS 
POLLUX 
PROCION 
REGULUS 
RIGEL 


EST 


2-RELACION 


SCHEDIR 
SCHIRRAZ 
SHEIF 
SIRIO 
SPICA 


2-RELACION 


B-URSA MAIOR 
A-CETUS 
A-CETUS 
F-URSA MAIOR 
C-URSA MAIOR 


A-URSA MINOR 
B-GEMINIS 
A-CAN MINOR 
A-LEO 

A-ORION 


A-CASIOPEIA 
B-CETUS 
E-ORION 
A-CAN MAIOR 
A-VIRGO 


A-SERPERNS 
A-LYRA 


5 REM ESTRELLAS 
10 DIM A$(100,15) 
15 DiM B$(100,15) 
20 PRINT 4 


ALAS: -ANOTAR””,,'*2-BUS- 
CAR”,,'*3-CLASIFICAR””,,''4-GRA- 
BAR””,,'?9-MODIFICAR” 

30 INPUT N 

40 IF N<1 OR (N>4 AND N<>9) THEN 
GOTO 30 

50 GOTO N *100 

100 GOSUB 500 

105 FORN =1 TO 100 

110 1F A$(N,1)="” *""THEN GOTO 150 

115 NEXT N 

120 PRINT AT 20,0;"*LA RELACION ES- 
TA COMPLETA” 

1251F INKEY$=””” THEN GOTO 125 

130 CLS 

140 GOTO 20 

150 PRINT AT 20,0;""ESTRELLA (156C.)? 


155 INPUT AS(N)(1 TO 15) 
1601F AS(NI(1 TO 2)x>” **"THEN 
GOTO 170 


165 LET AS(N)(1 TO 15) =**(20)> 

168 GOTO 130 

170 PRINT AT 20,0;”'CONSTELACION 
(15 C.)?” 

175 INPUT B$(N)(1 TO 15) 

180 GOTO 115 

200 FOR M=1TO 100 STEP 5 

205 GOSUB 500 

207 PRINT 

208 PRINT 

210 FORH=0T04 

215 IF AS(M+H)="""THEN GOTO 230 

225 PRINT TAB O;¡AS(M + H);TAB 15; 
BS$(M + H) 

230 NEXT H 

240 IF INKEY$="""THEN GOTO 240 

245 IF INKEY$<>".” THEN LET M= 
100 

250 NEXT M 

260 PAUSE 400 

270 CLS 

275 GOTO 20 

300 GOSUB 500 

305 PRINT ,,' "VOY A TRABAJAR EN 
MOD SU PANTALLA PER- 
MANECERA OSCURA HASTA EL 
FIL DE LA  CLASIFICACION” 

306 PAUSE 200 

308 IF INKEYS$="'"THEN GOTO 308 

310 PRINT AT 11,5;” 

315 LETW$=" 

318 LET V$="” 

319 FAST 

320 FORP =99TO 1 STEP -1 

325 FORQ=1TOP 

330 IF AS$(Q,1 TO 15)<=A$(Q+1,1 TO 
15) OR A$(Q+1,1T0 1)=" ” THEN 
GOTO 370 

340 LET W$(1 TO 15)=A$(Q,1 TO 15) 

345 LET V$(1 TO 15)=BS$(Q,1 TO 15) 

350 LET A$(Q,1 TO 15) =A$(Q+1,1 TO 
15) 

355 LET B$(Q,1 TO 15) =B$(Q+1,1 TO 
15) 

360 LET A$(Q+1,1 TO 15) =WS8(1 TO 
15) 

365 LET B$(Q + 1,1 TO 15) =V$(1 TO 15) 

370 NEXTAQ 

375 NEXTP 

378 SLOW Ñ 

380 PRINT AT 11,5; £LAS 


(19) , 
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382 PAUSE 400 

385 IFINKEYS$="””" THEN GOTO 385 

390 CLS 

395 GOTO 20 

400 GOSUB 500 

410 PRINT,,'*PREPARE EL CASSETTE 
PARA GRABAR SU LISTIN”” 

420 PRINT,,,," CUANDO ESTE LISTO 
PULSE 

430 INPUT C$ 

440 SAVE STARK” 

450 CLS 

460 GOTO 20 

500 CLS 

510 PRINT,, 


520 GOTO 520 + N*2 


522 PRINT **1-INTRODUCIR DATOS”” 
521 AEIOAN 


526 PRINT ”3-CLASIFICACION”” 
527 RETURN 

528 PRINT *'*4-GRABACION”” 

529 RETURN 

538 PRINT "*9- MODIFICACIONES” 
539 RETURN 


900 GOSUB 500 

910 PRINT AT 20,0;""NOMBRE A MO- 
DIFICAR.:?*”* 

920 INPUT W$ 

925 IF W$="””"*THEN GOTO 965 

930 FOR M =1 TO 100 

940 IF A$(M,1 TO LEN W$) =W$ THEN 
GOTO 970 

942 NEXT M 

945 PRINT AT 20,0;W$;""NO HALLADO 
EN LISTIN” 

950 LET V$ =INKEYS$ 

955 IF V$ =”"""THEN GOTO 950 

960 IF CODE V$ =118 THEN GOTO 900 

965 CLS 

968 GOTO 20 

970 GOSUB 500 

971 PRINT ,,A$(M,1 TO 15);” ”;BS$(M,1 
TO 10) 

972 PRINT AT 20,0;”LO MODIFICO 
SIN” 

974 INPUT VS 


330 


975 IF V$="”” THEN GOTO 974 

976 1F V$(1)<>"S'”” THEN GOTO 900 

978 PRINT AT 20,0;'"NUEVA ESTRE- 
LLA (15 C.)?” 

979 INPUT A$(M,1 TO 15) 980 
PRINT AT 20,0;'""NUEVA CONSTE- 
LACION (15 C.)?”” 

985 INPUT B$(M,1 TO 15) 


990 PRINT AT 20,0;”DESEA MAS MO- 
DIFICACIONES (S/N)”” 

995 INPUT V$ 

997 IF V$(1)=""S”” THEN GOTO 900 

998 CLS 

999 GOTO 20 


9999 GOTO 1 


2.- 
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ORDENACION DE CADENAS LITERALES: MATRICULAS DE COCHES EUROPEOS 
(Programa ''CADENA””, núm. 2) 


La estructura de este programa es la misma que la del programa anterior pero ahora 
vamos a establecer una relación entre: 


NUMERO DEL DATO = cadena F (10) 
SIMBOLO = BS (10,2) 
NOMBRE = AS (10,12), clasificándolos después. 


Para evidenciar esta clasificación nos valemos de las matriculas de 10 páíses europeos, 
cuales se enumeran del 1 al 10 y se van a clasificar por sus nombres. 


En este caso la clasificación se puede realizar A.- DE MENOR A MAYOR, B.- DE MA- 
YOR A MENOR. 


La clasificación se desarrolla en las sentencias 310-380, pero la opción A toma las sen- 
tencias 320, 325 y 330 mientras que la B toma alternativamente las 321, 326 y 335. Co- 
mo cada país tiene un número de orden 1-10, se acompañan las sentencias 347 y 367 a 


la clasificación. 


2-RELACION DE DATOS 


DESEA CLASIFICAR: 
A =DE MENOR A MAYOR 
B=DE MAYOR A MENOR 


LES. 


NUM: SIMBOLEO NOMBRE: 
1 P PORTUGAL 2-RELACION DE DATOS 
2 E ESPAÑA 
3 UK R. UNIDO 
4 F FRANCIA 
5 l ITALIA 10 CH SUIZA 
6 D ALEMANIA 3 UK R. UNIDO 
7 B BELGICA 1 P PORTUGAL 
8 DK DINAMARCA 5 I ITALIA 
9 (0) AUSTRIA 4 F FRANCIA 
10 CH SUIZA 2 E ESPAÑA 
DR 8 DK DINAMARCA 
7 B BELGICA 
9 0) AUSTRIA 
3-CLASIFICACION 6 D ALEMANIA 


VOY A TRABAJAR EN MODO FAST 
SU PANTALLA PERMANECERA OSCU- 
RA HASTA EL FIN DE LA CLASIFICA- 
CION 
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2- 


2 (0) 3 01ANn0 00 


RELACION DE DATOS 


D ALEMANIA 
O AUSTRIA 
B BELGICA 
DK DINAMARCA 
E ESPAÑA 
F FRANCIA 
| ITALIA 
P PORTUGAL 
UK R. UNIDO 
0 CH SUIZA 

10 DIM A$(10,12) 

14 DIM F(10) 

15 DIM B$(10,2) 

20 PRINT "¡GRA 


NAS LITERALES” 
22 PRINT AT 2,0;”” 
24 PRINT.— AT 5,9; 
DATOS” 
26 PRINT AT 7,9;”2-LISTAR RESUL- 
TADOS” 


RODUCA 


29 PRINT AT  9,9;”3-CLASIFICAR 
DATOS” 

30 PRINT AT  11,9;"4-MODIFICAR 
DATOS” 

32 INPUT N 


33 IFN =4THENLETN=9 

34 GOTO N *100 

100 GOSUB 500 

105 FORN =1 TO 10 

110 1F A$(N,1)=”” 

115 NEXT N 

120 PRINT AT 20,0;”LA LISTA ESTA 
COMPLETA” 

122 PAUSE 100 

125 IFINKEYS = 

130 CLS 

140 GOTO 20 


*" THEN GOTO 142 


** THEN GOTO 125 


143 PRINT AT "20, 0; PNUMERO(1-< 3 
DIGITOS)”” 

144 INPUT F(N) 

145 PRINTAT 7,0; >” 

146 PRINT AT 7,0;F(N) 

150 PRINT AT 20,0;”" NOMBRE (12 C.)? 

155 INPUT AS(N) (1 TO 12) 


156 PRINT AT 7,14; (12) ”; 

157 PRINT AT 7,14;¡AS(N)J1 TO 12); 

160 IF AS(N) (1 TO 2)<>'**” THEN 
GOTO 170 

165 LETAS(N)M1T012)=”  ” 

168 GOTO 130 

170 PRINT AT 20,0;”"SIMBOLO (2 C.)? 

175 INPUT BS(N) (1 TO 2) 

176 PRINTAT7,5;*  ”; 


177 PRINT AT 7,5;BS(N) (1 TO 2) 
180 GOTO 115 
205 GOSUB 500 
206 PRINT AT 5,0; “AT 5,5; 


207 PRINT 

208 PRINT 

210 FOR M=1 TO 10 

215!1F A$S(H)=""” THEN GOTO 230 

225 PRINT TAB O0;F(H);TAB 5;B$(H); 
TAB 13;A5$(H) 

230 NEXT H 

235 PAUSE 200 

240 IF INKEY$ = 

270 CLS 

275 GOTO 20 

300 GOSUB 500 

301 PRINT 

302 PRINT 

304 PRINT » VOY A TRABAJAR EN 
MODO:FASE: SU PANTALLA PER- 
MANECERA OSCURA HASTA EL 
FIN DE LA  CLASIFICACION” 

306 GOSUB 2000 

309 IF INKEY$= 

310 PRINT AT 20,5;” 

315 LET W$="” 

318 LET V$="” 

319 FAST 

320 1F H$="”"A” THEN FOR P=9 TO 
1 STEP -1 

321 IF H$="B”” THEN FOR P=1 TO 9 

325 IFH$=”A” THEN FORQ=1TOP 

326 IF H$=""B” THEN FOR Q=1 TO 
10-P 

330 IFH$=""A”* AND A$(Q,1 TO 12)<= 
=A$S(Q+1,1 TO 12) OR A$(Q+1,1 
TO1)="”” THEN GOTO 370 

335 IF H$="B" AND A$(Q,1 TO 12)>= 
A$(Q + 1,1 TO 12) OR AS(Q + 1,1 TO 
1)=*” >” THEN GOTO 370 


*” THEN GOTO 240 


2 THEN SO 0 
Si 
) 


(19) .” 


340 LET W$(1 TO 12) =A$(Q,1 TO 12) 

345 LET VS(1 TO 2)=B$(Q,t TO 2) 

347 LETAA =F(Q) 

350 LET A$(Q,1 TO 12)=AS$(Q0+1,1 
TO 12) 

355 LET B$(Q,1 TO 2) =B$(Q+1,1 TO 
2) 

357 LET F(Q) =F(Q + 1) 

360 LET A$(Q+1,1 TO 12) =WS$(1 TO 
12) 

365 LET B$(Q+1,1 TO 2) =V$(1 TO 2) 

367 LET F(Q+1)=AA 

370 NEXT Q 

375 NEXTP 

378 SLOW 

380 PRINT AT 20,5;””: 
CON A” 

385 IF INKEYS=""”? THEN GOTO 385 

390 CLS 

395 GOTO 20 

500 CLS 

510 PRINT '"ORDENACE 


520 GOTO 520 + N *2 

522 PRINT AT  2,0;”1-INTRODUCIR 
DATOS ELEMENTOS”” 

523 RETURN 

524 PRINT AT 3,0;'”2-RELACION DE 
DATOS” 

525 RETURN 

526 PRINT AT 3,0;”'3-CLASIFICACION 


527 RETURN 

530 PRINT— AT  3,0;"4-MODIFICAR 
DATOS” 

532 IFN =4 THEN LETN =9 

539 RETURN 


900 GOSUB 500 

910 PRINT AT 20,0;""NOMBRE A MO- 
DIFICAR.:?”” 

920 INPUT W$ 

925 IFW$=""'" THEN GOTO 965 

930 FOR M =1 TO 10 

940 IF A$(M,1 TO LEN W$) =W$ THEN 
GOTO 970 

942 NEXT M 

945 PRINT AT 20,0;W$;""NO HALLADO 
EN LA RELACION” 

950 LET VS =INKEY$ 

955 IF V$ ="***THEN GOTO 950 

960 IF CODE V$ =118 THEN GOTO 900 
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965 CLS 

968 GOTO 20 
969 GOSUB 500 
A PRINT AT 5,0; NU: 


971 PRINT 
972 PRINT TAB O;F(M);TAB 5;BS(M,1 
TO 2);TAB 13;A$(M,1 TO 12) 
973 PRINT AT 20,0;”LO MODIFICO 
S/N 
974 INPUT VS 
975 IF V$="""* THEN GOTO 974 
976 IF V$(1)<>"S” THEN GOTO 900 
978 PRINT AT 20,0;”"NUEVO NOMBRE 
12 cIa 
979 INPUT A$(M,1 TO 12) 
981 PRINT AT 7,13;A$(M,1 TO 12) 
982 PRINT AT 20,0;'"NUEVO SIMBOLO 
(20.?” 
983 INPUT B$(M,1 TO 2) 
985 PRINTAT7,5¡B$(M,1 TO 2); 
986 PRINT AT 20,0;'" NUEVO NUMERO 
(3 DIG.)?” 
987 INPUT F(M) 
988 PRINT AT 7,0;F(M); 
990 PRINT AT 20,0; "DESEA MAS MO- 
DIFICACIONES (S/N)” 
995 INPUT VS 
997 IF V$(1) ="'S'' THEN GOTO 900 
998 CLS 
999 GOTO 20 
2000 REM 
2010 PAUSE 50 
2020 PRINT AT 15,0;”DESEA CLASI- 
FICAR:” 
2030 PRINT AT 17,10;”A=DE MENOR 
A MAYOR” 
2040 PRINT AT 18,10;"'B=DE MAYOR 
A MENOR” 
2050 INPUT H$ 
2100 RETURN 
9980 PRINT (256 *PEEK 16405 + PEEK 
16404-16389)/1024 
9982 PAUSE 200 
9984 CLS 
9986 GOTO 20 
9990 SAVE '"CADENH” 
9999 GOTO 20 
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3.- ARCHIVO DE CINTAS (Programa '*'CINTA””, núm. 3) 


El archivo de cintas (o discos) de un melómano puede oscilar entre 200 a 1000 UNIDA- 
des pero siempre ha de incluir: 


NUMERO DE CINTA-CARA: F (100) EJ.: 001.1 (CINTA 1, CARA 1, pero si se trata de 
discos este número será entero). 


AUTOR : A$(100,12) BEETHOVEN 
TITULO : B$(100,14) CUARTETO N? 11 
CLASE DE MUSICA *: C$(100,10) SINFONICA 


y DENTRO de cada una de las caras de cada cinta ha de incluir de 10 a 17 temas que se 
pueden definir por la cadena DS(100,16,17). 

(No obstante, estas dos últimas posibilidades no se incluyen por capacidad de memoria) 
Se incluyen 2 versiones: 


A.- Se utiliza como ejemplo de clasificación de cadenas. 
B.- Tiene gran capacidad de almacenamiento. 


A.- En el primero, la SUBRUTINA 2.000 permite también las opciones de clasificación 
A y B del programa anterior y las sentencias 301, 303 permiten las opciones considera- 
das en el programa M =CINTA N = AUTOR S =TITULO. 


La clasificación por AUTORES se realiza en las sentencias 310-380, por CINTAS en la 
subrutina 1.000 y por TITULOS en la Subrutina 3.000. 


La salida de resultados del ordenador muestra 2 clasificaciones distintas como ejemplo. 
En primer lugar se clasifican de mayor a menor cintas con MAHLER como autor. 


En segundo lugar se hace hincapié en la forma de introducir los datos diferenciando 
dentro del código de cinta las caras A =1 y B=2. 

La posibilidad de introducir clase de música y temas no es dificil, pero se han de 
desarrollar subrutinas de introducción, modificación de datos, clasificación de datos y 
búsqueda de datos como opciones posibles, llegando a un equilibrio entre el número de 
cintas total y las opciones utilizadas para que no excedan las 16K de capacidad del 
ZX-81. 


B.- Este otro catálogo de CINTAS o DISCOS contempla la necesidad de cadenas 
más largas para definir con mayor precisión AUTOR/INTERPRETE y TITULO (26 
caracteres como máximo cada una). Los números de las cintas deben terminar con la 
cifra decimal 1 ó 2 para indicar la cara de la cinta en cuestión, cosa que no ocurre en 
los discos normalmente. 
El Programa comienza definiendo el parámetro W = Número de caras o temas diferen- 
tes que se contemplan en el catálogo. Como las DIM y las demás OPCIONES están 
en función de W es muy fácil dimensionar correctamente el Catálogo en relación con 
nuestra capacidad de memoria. 
Así para 16k W =175 caras (o LP) 

32K W =450 caras (o LP) 

48K W =740 caras (o LP) 
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PR 


El Programa incluye las opciones estrictamente necesarias para desarrollar un Catálogo 
de Cintas / Discos que integre el mayor número posible de elementos. 

Por ello se permite al opción de borrado aparte de las utilizadas en el Programa ante- 
rior, pero NO se utilizan clasificaciones de menor a mayor o viceversa para el ahorro de 


memoria. 


OGRAMA NUM. 3-A 


2-RELACION DE CINTAS 


N —- 


MAHLER 
MAHLER 
MAHLER 
MAHLER 
MAHLER 
MAHLER 
MAHLER 
MAHLER 
MAHLER 
MAHtER 


MAHLER 
MAHLER 
MAHLER 
MAHLER 
MAHLER 
MAHLER 
MAHLER 
MAHLER 
MAHLER 
MAHLER 


e 


Sinfonía N.1 
Sinfonía N.2 
Sinfonía N.3 
Sinfonía N.3 
Sinfonía N.10 
Sinfonía N.4 
Sinfonía N.5 
Sinfonia N.5 
Sinfonía N.7 
Sinfonía N.8 


cancion tierra 
Sinfonia N.9 
Sinfonia N.8 
Sinfonia N.7 
Sinfonia N.6 
Sinfonia N.5 
Sinfonia N.4 
Sinfonia N.10 
Sinfonia N.3 
Sinfonia N.3 


3-CLASIFICACION 


DESEA CLASIFICAR: 
M =CODIGO DE CINTAS 
N =AUTORES 
S =TITULOS 


VOY A TRABAJAR EN MODO + j 
SU PANTALLA PERMANECERA OSCU- 
RA HASTA EL FIN DE LA CLASIFICA- 
CION 


DESEA CLASIFICAR: 


A =DE MENOR A MAYOR 
B =DE MAYOR A MENOR 


DR: TITULO 


1.1 BEATLES LETITBE 

1.2 BEATLES ABBEY Road 

2.1 BEETHOVENSINF. N.6 

2.2 BEETHOVEN SINF. N.8 

3.1 ELVIS 50 Discos Oro 

3.3 ELVIS 50 Discos Oro 

4.1 J. DIAZ Cant.Sefardie 
4.2 J. DIAZ Rom.Truculen 
5.1 MARI TRINI Transparencia 


5.2 MARITRINI VENTANAS 


5 REM "ARCHIVO DE CINTAS” 

10 DIM A$(100,12) 

14 DIM F(100) 

15 DIM B$(100,14) 

20 PRINT ,, ARCHIVO DE CINTAS” 
1, "1-ANOTAR”,,'2-LISTAR”,,*?3- 
CLASIFICAR”,,'”'4-GRABAR”,,”'9- 
MODIFICAR” 

30 INPUT N 

40 IF N<1 OR (N>4 AND N<>9) THEN 
GOTO 30 

50 GOTO N *100 

100 GOSUB 500 

105 FORN=1 TO 100 

110 IF AS(N,1)="" ** THEN GOTO 142 

115 NEXT N 

120 PRINT AT 20,0;''EL ARCHIVO ES- 
TA COMPLETO” 

125 1F INKEY$=""”” THEN GOTO 125 

130 CLS 

140 GOTO 20 

142 PRINT AT 4,0; NUM."¡AT 4,6;” 
AUTOR '¡AT 4,18;" TÍTULO” 

143 PRINT AT 20,0;'"CODIGO DE CIN- 
TA? (4C+.1/2)” 

144 INPUT F(N) 

145 PRINTAT7,0;* 

146 PRINT AT 7,0;F(N) 

150 PRINT AT 20,0;”AUTOR/INTER- 
PRETE (12 C.)? 

155 INPUT AS(N)(1 TO 12) 

156 PRINT AT 7,6;” > 

157 PRINT AT 7,6;AS(N)(1 TO 12); 

160 IF AS(N) (1 TO 2)<>"**"” THEN 
GOTO 170 

165 LET AS(N) (170 12)="  ” 

168 GOTO 130 

170 PRINT AT 20,0; "TITULO (14 C.)? 

175 INPUT BS(N) (1 TO 14) 

176 PRINTAT7,18; (24) ”; 

177 PRINT AT 7,18;BS(N) (1 TO 14) 

180 GOTO 115 

200 FOR M=1TO 100 STEP 10 

205 GOSUB 500 

206 PRINT AT 4,0; NUM."¡AT 4,6;” 


AUTOR "¡AT 4,18; TEFULO” 
207 PRINT 
208 PRINT 
210 FORH=0TO9 
215 IF AS(M + H)="""” THEN GOTO 230 


225 PRINT TAB 0;F(M+H);TAB 6;A3( 


M + H);¡TAB 18;B$(M + H) 

230 NEXT H 

240 IFINKEYS="”' THEN GOTO 240 

245 IF INKEYS$<>".'"” THEN LET M= 
100 

250 NEXT M 

270 CLS 

275 GOTO 20 

300 GOSUB 500 

301 PRINT AT 4,0; "DESEA CLASI- 
FICAR:” 

302 PRINT AT 6,6;"M=CODIGO DE 
CINTAS”';AT 7,6; 'N =AUTORES”'; 
AT 8,6;'S=TITULOS” 

303 INPUT Es 

304 PRINT ,,"VOY-A TRABAJAR EN 
MODO FAST SU PANTALLA PER- 
MANECERA OSCURA HASTA EL 
FIN DE LA CLASIFICACION” 

305 GOSUB 2000 

307 IF E$="'S'' THEN GOTO 3000 

308 IF E$=”M” THEN GOTO 1000 

309 IFINKEY$=""" THEN GOTO 309 

310 PRINT AT 20,5; GLAS 


315 LET W$=" (19) ye 

318 LET V$=” (19) se 

319 FAST 

320 1F H$=”'A'' THEN FOR P=99 TO 
1 STEP -1 

321 1F H$="”B' THEN FOR P=1 TO 
99 

325 1F H$="A'' THEN FOR Q=1 TO 


P 
326 IF H$='"B"” THEN FOR Q=1 TO 
100-P 


330 IF H$="'A' AND AS(Q,1 TO 12)<= 
AS(Q + 1,1 TO 12) OR AS(Q+ 1,1 TO 
1) =” ” THEN GOTO 370 

335 IF H$="'B"” AND A$(Q,1 TO 12)>= 
AS(Q + 1,1 TO 12) OR AS(Q+1,1 TO 
1="'" THEN GOTO 370 

340 LET W$(1 TO 12) =AS(Q,1 TO 12) 

345 LET V$(1 TO 14)=BS$(Q,1 TO 14) 

347 LETAA=F(0) 

350 LET A$(Q,1 TO 12) =AS$(Q+1,1 TO 
12) 

355 LET B$(Q,1 TO 14)=WS(Q+ 1,1 
TO 14) 

357 LET F(Q)=F(Q +1) 

360 LET A$S(Q+1,1 TO 12) =WS(1 TO 
12) 
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365 LET B$(Q+ 1,1 TO 14) =VS$(1 TO 14) 

367 LET F(Q+1)=AA 

370 NEXT Q 

375 NEXTP 

378 SLOW 

380 PRINT AT 20,5; EEASIFICACION 
COMPLETA” 

385 IF INKEY$="'"” THEN GOTO 385 

390 CLS 

395 GOTO 20 

400 GOSUB 500 

410 PRINT ,, "PREPARE EL CASSETTE 
PARA GRABAR SU ARCHIVO”” 

420 PRINT ,,, "CUANDO ESTE LISTO 
PULSE NEWLINE"” 

430 INPUT C$ 

440 SAVE CINTA” 

450 CLS 

460 GOTO 20 

500 CLS 

510 PRINT AT 0,0; ARCHIV 
TAS” 

520 GOTO 520+N *2 

522 PRINT— *'1-INTRODUCIR DATOS 
CINTAS” 

523 RETURN 

524 PRINT *'2-RELACION DE CINTAS” 

525 RETURN 

526 PRINT *"3-CLASIFICACION”” 

527 RETURN 

528 PRINT ''4-GRABACION” 

529 RETURN 

538 PRINT '"9-MODIFICACIONES”” 

539 RETURN 

900 GOSUB 500 

910 PRINT AT 20,0;'"AUTOR A MODI- 
FICAR.:2” 

920 INPUT W$ 

925 IF W5$="'”' THEN GOTO 965 

930 FORM=1T0 100 

940 IF AS(M,1 TO LEN W$) = WS THEN 
GOTO 970 

942 NEXT M 

945 PRINT AT 20,0;W$;'""NO HALLA- 
DO EN EL ARCHIVO”” 

950 LET V$ =INKEYS$ 

955 IF V$=""*”* THEN GOTO 950 

960 IF CODE V$ =118 THEN GOTO 900 

965 CLS 

968 GOTO 20 

969 GOSUB 500 


DE CIN= 


970 PRINT AT 4,0; NUM.";¡AT 4,6; 
"AUTOR ¡AT 4,18; TITULO” 

971 PRINT 

972 PRINT TAB O;F(M);TAB 6;AS(M,1 
TO 12);TAB 18;BS(M,1 TO 14) 

973 PRINT AT 20,0;”LO MODIFICO 
S/N 

974 INPUT VS 

975 IF V$=""'"* THEN GOTO 974 

976 IF V$(1)<>'S'' THEN GOTO 900 

978 PRINT AT 20,0; "NUEVO AUTOR 
A2cJ2 

979 INPUT A$(M,1 TO 12) 

981 PRINT AT 7,6:AS$(M,1 TO 12) 

982 PRINT AT 20,0;”"NUEVO TITULO 
(14C.)?” 

983 INPUT B$(M,1 TO 2) 

985 PRINT AT 7,18;B$(M,1 TO 14); 

986 PRINT AT 20,0;'"NUEVO CODIGO 
DE CINTA (4C.+ 1/2)?” 

987 INPUT F(M) 

988 PRINT AT 7,0:F(M) 

990 PRINT AT 20,0;''DESEA MAS MO- 
DIFICACIONES (S/N)” 

995 INPUT V$ 

997 IF V$(1) =''S'' THEN GOTO 900 

998 CLS 

999 GOTO 20 

1000 REM 

1010 CLS 

1020 FAST 

1100 LET 

1102 LET V$=" (19) » 

1105 FORI=1TO 99 

1200 FOR J=1TO 100-1 

1210 LETX=F(J) 

1220 LET Y =(J+1) 

1230 1F H$="B'” AND X>=Y THEN 
GOTO 1300 

1235 1F H$=”A” AND X<=Y THEN 
GOTO 1300 

1237 LET W$(1 TO 12)=A$(J,1 TO 12) 

1238 LET V$(1 TO 14)=BS$(J,1 TO 14) 

1240 LET AS$(J,1 TO 12)=A$(J+1,1 
TO 12) 

1242 LET B$(J,1 TO 14)=B$(J+1,1 TO 
14) 

1248 LET F(J) =Y 

1250 LET F(J+1)=X 

1260 LET AS(J+1,1 TO 12)=W8(1 TO 
12) 


1270 LET B$(J+1,1 TO 14) =VS(1 TO 14) 
1300 NEXT y 

1310 NEXT 1 

1350 GOTO 378 

2000 REM 

2010 PAUSE 50 

2020 PRINT AT 15,0;”"DESEA CLASI- 


FICAR:”” 

2030 PRINT AT 17,10;"A=DE MENOR 
A MAYOR” 

2040 PRINT AT 18,10; "B=DEMAYORA 
MENOR” 


2050 INPUT H$ 

2100 RETURN 

3000 REM 

3150 LET W$="' (19) de 

3180 LET V$=" (19) E 

3190 FAST 

3200 IF H$="A” THEN FOR P=100 
TO 1 STEP -1 

3210 IFH$S="'B" THEN FORP =1 TO 99 

3250 IF H$="A” THEN FORQ=1 TOP 

3260 IF H$="B'” THEN FOR Q=1 TO 
100-P 

3300 IF H$="”'A”' AND B$(Q,1 TO 14)<= 
BS$(Q + 1,1 TO 14) OR B$(Q+1,1 TO 
1)='"' '"' THEN GOTO 3700 

3350 |F H$="'B'"' AND B$(Q,1 TO 14)>= 
B$(Q + 1,1 TO 14) OR BS$(Q+1,1 TO 
1)=''' THEN GOTO 3700 

3400 LET W$(1 TO 14) =B$(Q,1 TO 14) 

3450 LET V$(1 TO 12)=A$(Q,1 TO 12) 

3470 LETAA =F(0Q) 

3500 LET B$(Q,1 TO 14) =B$(Q+1,1 TO 
14) 

3550 LET B$(Q,1 TO 12) =A$(Q+1,1 TO 

12) 

3570 LET F(Q) =F(Q + 1) 

3600 LET BS(Q+1,1 TO 14) =WS(1 TO 
14) 

3650 LET AS$(Q + 1,1 TO 12) = V$(1 TO 12) 

3670 LET F(Q+1)=AA 

3700 NEXT AQ 

3750 NEXT P 

3760 GOTO 378 

9990 SAVE *'CINTA”” 

9999 GOTO1 * 


339 


PROGRAMA NUM. 3-B 
CATALOGO DE CINTAS 


1-ANOTAR 
2-BUSCAR 
3-CLASIFICAR 
4-GRABAR 
7-BORRAR 
9-MODIFICAR 


CATALOGO DE CINTAS 


2-RELACION (PULSE ”.'' PARA PA- 
SAR HOJA / *"**” PARA TERMI- 
NAR) 


100.1 THEBEATLES 

PLEASE, PLEASE ME. 5- 1964 
100.2 THE BEATLES 

WITH THE BEATLES. 6- 1964 
101.1 THEBEATLES 

A HARD DAY S NIGHT. 9-1964 
101.2 THEBEATLES 


FOR SALE. 5-1965 
102.1 THEBEATLES 

HELP. 9-1965 
102.2 THE BEATLES 

RUBBER SOUL 8 -1965 
103.1 THE BEATLES 

REVOLVER 10 -1966 
103.2 THE BEATLES 

OLDIES. 1967 
CATALOGO DE CINTAS 


9-MODIFICACIONES 


OPCIONES 

A.-NUMERO DE CINTA 
B.-AUTOR/INTERPRETE 
* VOLVER. A OPCIONES 


“CATALOGO DE CINTAS 


9-MODIFICACIONES 
0 . 


*.. 


LO MODIFICO S/N 
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NUEVO NUMERO DE CINTA:? (XXX.X) 
CATALOGO DE CINTAS 

9- MODIFICACIONES 


104.1 THE BEATLES 
SERGEANT PEPPERS. 7 - 1967 


DESEA MAS MODIFICACIONES (S/N) 


5 REM CINTAS 
7 LETW =175 
10 DIM A$(W,26) 

13 DIM F(W) 
15 DIM B$(W,26) 
20 CLS 


22 PRINT ,, “CATALOGO DE CINTAS 


“,) "I-ANOTAR”,,''2-BUSCAR”,, 
""3- CLASIFICAR”,,''4-GRABAR” 
»»  7-BORRAR””,,''9-MODIFICAR”' 

30 INPUT N 

40 IF N<1 OR (N>4 AND N<>7 AND N<> 
9) THEN GOTO 30 

50 GOTO N *100 

100 GOSUB 500 

105 FORN =1TOW 

110 IF AS(N,1) ="' ** THEN GOTO 150 

115 NEXT N 

120 PRINT AT 20,0;''LA RELACION ES- 
TA COMPLETA” 

125 IF INKEY$="""* THEN GOTO 125 

130 CLS 

140 GOTO 20 

150 PRINT 

151 PRINT 

152 PRINT AT 20,0;"'NUMERO DE CiN- 
TA:? (XXX.X)'' 

153 INPUT F(N) 

154 PRINT AT 5,0;F(N) 

156 PRINT AT 20,0;””AUTOR/INTER- 
PRETE (26 C.)?'* 

157 INPUT AS$(N)(1 TO 26) 

158 PRINT AT 5,6;A$(N) (1 TO 26) 

160 1F AS(N) (1 TO 2)<>"**'” THEN 
GOTO 170 

165 LET AS(N) (1 TO 26) ="'(20)” 

168 GOTO 130 

170 PRINT AT 20,0;""TITULO CINTA 
(26 C.)? 

175 INPUT BS(N) (1 TO 26) 


177 PRINT AT 6,6;B$(N) (1 TO 26) 

180 GOTO 115 

200 FOR M=1 TO W STEP 8 

205 GOSUB 500 

207 PRINT 

208 PRINT 

210 FORH=0TO7 

215 IF AS(M+H)="" THEN GOTO 230 

225 PRINT TAB 0;F(M+H);TAB 6;A$ 
(M + H);TAB 6;B$(M + H) 

230 NEXT H 

235 SLOW 

240 IFINKEYS=""" THEN GOTO 240 

245 IF INKEY$<>”."* THENLETN =W 

247 FAST 

250 NEXT M 

270 CLS 

275 GOTO 20 

300 GOSUB 500 

305 PRINT ,,' "VOY A TRABAJAR EN 
MODO FASE SU PANTALLA PER- 
MANECERA OSCURA HASTA EL 
FINDE LA CLASIFICACION” 

306 PAUSE 200 

308 IFINKEY$=""" THEN GOTO 308 

310 PRINT AT 11,5; 6 | 

315LET Ws="” (9). 


318 LET V5$=” (19) 
319 FAST 


320 FORP =(W-1)TO 1STEP - 1 

325 FORQ=1TOP 

330 IF A$(0,1 TO 26)<=A$(Q + 2,1 TO 
26) OR A$(0+1,1TO01)=" "THEN 
GOTO 370 

340 LET W$(1 TO 26) =A$(Q,1 TO 26) 

345 LET V$(1 TO 26) = B$(Q,1 TO 26) 

350 LET A$(Q,1 TO 26) =A$(Q+1,1 TO 
26) 

355 LET B$(Q,1 TO 26) =B$(Q+1,1 TO 
26) 

360 LET A$(Q+1,1 TO 26) =Ws$(1 TO 
26) 

365 LET B$(Q + 1,1 TO 26) = V$(1 TO 26) 

370 NEXT Q 

375 NEXT P 

378 SLOW 

380 PRINT AT 11,5; ”"CLASIFICACION 
COMPLETA” 

382 PAUSE 400 


385 IFINKEY$="””' THEN GOTO 385 

390 CLS 

395 GOTO 20 

400 GOSUB 500 

410 PRINT ,, "PREPARE EL CASSETTE 
PARA GRABAR SU CATALOGO” 

420 PRINT ,,,,” O ESTE LISTO 
PULSE 

430 INPUT C$ 

440 GOTO 9990 

500 CLS 

510 PRINT * 

515 PRINT 

520 GOTO 520+N *2 

522 PRINT "1-INTRODUCIR DATOS” 

523 RETURN 

524 PRINT ”” ULSE ””””.” 
"PARA PASAR —HOJA/"etm” 
PARA TERMINAR)” 

525 RETURN 

526 PRINT ”'3-CLASIFICACION”” 

527 RETURN 

528 PRINT "'4-GRABACION”” 

529 RETURN 

534 PRINT *”7-BORRADO”” 

"535 RETURN 

538 PRINT *”"9-MODIFICACIONES”” 

539 RETURN 

700 GOTO 900 

701 GOSUB 500 

702 PRINT 

703 PRINT 

705 PRINT TAB O;F(M);TAB 6;A$(M,1 
TO 26);TAB 6;B$(M,1 TO) 

706 PRINT AT 20,0;”VOY A BORRAR 
LAS CARACTERISTICAS DE ESTA 


CINTA” 
707 PAUSE 200 E 
710 LET A$(M,1 TO)=” (22) 
720 LET B$(M,1 TO)="” (22) 
725 CLS 


730 PRINT TAB 0;F(M);TAB 6;A$(M,1 
TO 26);TAB 6;B$(M,1 TO) 

740 PRINT AT 20,0;”"CARACTERISTI- 
CAS BORRADAS ' ” 

750 PAUSE 100 

760 GOTO 20 

900 GOTO 500 

901 PRINT AT:8,0;' 
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902 PRINT AT100;''A.- NUMERO DE 
CINTA”';¡AT  12,0;"'B.-AUTOR/IN- 
TERPRETE”;AT 14,0;”*.-VOLVER 
A OPCIONES” 

903 INPUT O$ 

904 IFQ$="”"B” THEN GOTO 910 

905 IF Q$=”**” THEN GOTO 20 

906 PRINT AT 20,0;""NUMERO DE CIN- 
TA:?  (XXX.X) (18) 


907 INPUT F 

908 GOTO 929 

910 PRINT AT 20,0;”'AUTOR/INTER- 
PRETE A MODIFICAR:? (<=25 


CAR.)” 
920 INPUT W$ 
922 IFW$="”"*”* THEN GOTO 965 
929 PRINT AT 10,0;*” (50) 
930 PRINT AT 8,0;”” (50) 
932 FAST 


933 FORM =1TOW 

934 IF Q$="'"B” THEN GOTO 940 

935 IF F(M) =F THEN GOTO 969 

937 GOTO 942 

940 IF AS(M,1 TO LEN W5$) =W$ THEN 
GOTO 969 

942 NEXT M 

943 SLOW 

945 IF Q$="”"B”' THEN PRINT AT 20,0; 
W*$;'”":NO HALLADO EN LISTIN  » 

946 IF Q$=”A” THEN PRINT AT 20,0; 
"¿NO HALLADO EN LISTIN” 

947 PAUSE 400 

950 LET V$ =INKEYS$ 

955 IF V$=””” THEN GOTO 950 

960 IF CODE V$ =118 THEN GOTO 900 

965 CLS 

968 GOTO 20 

969 IFN =7 THEN GOTO 701 

970 GOSUB 500 

971 PRINT 

972 PRINT TAB 0;F(M);TAB 6;A$(M,1 
TO 26);TAB 6;B$(M,1 TO) 

973 PRINT AT 20,0;”LO MODIFICO 
SIN” 

974 INPUT V$ 

975 IF V$=””” THEN GOTO 974 

976 IF V$(1)<>"S'* THEN GOTO 900 

977 GOTO 1000 
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978 PRINT AT 20,0; "NUEVO AUTOR/ 
INTERPRETE (<=26 CAR.)?” 
979 INPUT A$(M,1 TO 26) 
980 PRINT AT 4,6;A$(M,1 TO 26) 
982 PRINT AT 20,0; "NUEVO TITULO:? 
(<=26 CAR.) 
985 INPUT B$(M,1 TO 26) 
986 PRINT AT 5,6;B$(M,1 TO 26) 
990 PRINT AT 20,0;”DESEA MAS MO- 
DIFICACIONES (S/N)” 
995 INPUT V$ 
997 IF V$(1) =""S”* THEN GOTO 900 
998 CLS 
999 GOTO 20 
1000 PRINT AT 20,0; NUEVO NUMERO 
DE CINTA;? (XXX.X)” 
1010 INPUT F(M) 


1020 PRINT AT 4,0;F(M) 

1025 PRINT AT 20,0;"*DESEA MAS MO- 
DIFICACIONES EN ESTA CINTA? 
(SIN)” 

1027 INPUT V$ 

1028 IF V$="”"N"* THEN GOTO 900 

1029 IF V$ =""S'* THEN GOTO 978 

9970 STOP 

9980 PRINT (256*PEEK 16405 + PEEK 
16404 — 16386) /1024 

9982 PAUSE 200 

9984 CLS 

9986 GOTO 20 

9990 SAVE CINTAS?” 

9995 CLS 

9999 GOTO 20 
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4.- SISTEMA PERIODICO DE ELEMENTOS QUIMICOS 
En este programa se pretende demostrar la aplicación a la enseñanza de un sistema de 
ARCHIVOS, mediante la tabla de MENDELEJEV (versión WERNER Y PANETH). 


Se definen para cada elemento: 


NUMERO ATOMICO =F (103) 

NOMBRE DEL ELEMENTO =AS$ (103,12) 
SIMBOLO ATOMICO =8B$ (103,2) 
CARACTERISTICAS ELEMENTO = Q (103,2) 


PESO TOMO ao tana do EE Q (103,1) 
DENSIDAD e sc AECIaS as a E O Q (103,2) 
MALENE [Are de o ea mA NE De A rbd, EN ld EE Q (103,3) 
PUNTO DES Ni na at ce e a A A ataco Q (103,4) 
PÚNTO DEEBULLICION ete a dond teta od Q (103,5) 
ELECTRONES CAPA a e e a A A Q (103,6) 
ElECTRONES:CAPA E a Mene dao de COSA epi CNE, Q (103,7) 
ELECTRONESICADA M0 eneldo ojear o co ci Q (103,8) 
EPEGTRONES CAPA a e Eo der Mere Nr ea de NS A Q (103,9) 
ELECTRONES CABA O eo to e o ca nÓ Q (103,10) 
ELEGTRONESCADA Pr al Use polos dnd dsc Q (103,11) 
ELECTRONES: CAPA Oca ecos A CS A Q (103,12) 


La definición de las caracteristicas de cada elemento se establece mediante la cadena 
Q$ (12,12). 


El programa completo excede las 16K. Por lo tanto se presentan 3 programas. El 
primero recoge el programa FACTIBLE con 16K, el 2* contiene las nuevas OPCIONES 
relativas a características de los elementos y el 3% introduce la faceta DIDACTICA del 
programa. 


PROGRAMA A: 


Las clasificaciones se establecen sólo de menor a mayor y viceversa y sólo para número , 
nombre y simbolo de elemento. 


PROGRAMA B: 


En caso de disponer de 24K se puede desarrollar el programa completo y realizar clasi- 
ficaciones de elementos por valores máximos, mínimos o por tramos de Q(l,J). 


PROGRAMA C: 


Para una utilización didáctica del programa sólo se necesita clasificar una vez: de menor a 
mayor y por números atómicos, hecho lo cual se pueden eliminar las opciones de entrada, 
modificación y clasificación de datos, manteniendo sólo las de BUSQUEDA y clasificación 
dentro de los valores de la cadena numérica Q(103,12) (p.e.: relación de elementos con 
máximo peso atómico o aquellos que tienen saturada -máximo número de electrones- una 
capa determinada). 
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Este programa utiliza más de 27K. 


Se adjunta una tabla periódica de elementos como base de datos para preparación del 
programa. 


_S.PERIODICO 


a 


245 
aa. 
E 
$ 


A: 
ES 


dl 
0 
¡El 6 
na 
ds 
E 
1 


Fe Co NM peso mel 
En los grupos t 1 11 menos qe 4 ecirones “orbrares! SUMONA 


y 1 muy pe: 
jad . Hidrogeno ze 
á 64] 29 67p0 88 
. E T 
AT FAm La ¿Ma 
di 24 2 
elecirones orbit. 


e Ter Muy Hgeros ALCALINO TEMREO: qua Electrego: ñ pecado: 
que se .. 1abiá en el grupo IV con 4 sieciron ortutajes ys Pp EL CARACTE! No TALICO 
- EÉLEM-DE TRANS Det illa al Ib no completen las: 2 ultimas órbitas (vel ' 


PUNT EBULL 


VPR-O0ZMT AA 
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PROGRAMA NUM. 4-A 


2-RELACION DE ELEMENTOS 


1 H HIDROGENO 
2 HE HELIO 

3 tl LITIO 

4 BE BERILIO 

5 B BORO 

6 Cc CARBONO 

7 N NITROGENO 
8 0) OXIGENO 

9 F FLUOR 

10 NE NEON 


SODIO 
MAGNESIO 
ALUMINIO 
SILICIO 
FOSFORO 
AZUFRE 
CLORO 
ARGON 
POTASIO 
CALCIO 


2-RELACION DE ELEMENTOS 


ESCANDIO 
TITANIO 
VANADIO 
CROMO 


MANGANES. 


HIERRO 
COBALTO 
NIQUEL 
COBRE 
CINC 


2-RELACION DE ELEMENTOS 


¿NOMEB: 


ANTIMONIO 
TELURO 
¡ODO 

XENON 
CESIO 

BARIO 
LANTANIO 
CERIO 
PRASEODIM. 
NEODIMIO 


2-RELACION DE ELEMENTOS 


GALIO 
GERMANIO 
ARSENICO 
SELENIO 
BROMO 
KRIPTON 
RUBIDIO 
ESTRONCIO 
YTRIO 
CIRCONIO 


2-RELACION DE ELEMENTOS 


PROMECIO 
SAMARIO 
EUROPIO 
GADOLINIO 
TERBIO 
DISPROSIO 
HOLMIO 
ERBIO 
TULIO 
YTERBIO 


41 
42 
43 
44 
45 
46 
47 
48 
49 
50 


NIOBIO 
MOLIBDEN. 
TECNECIO 
RUTENIO 
RODIO 
PALADIO 
PLATA 
CADMIO 
INDIO 
ESTAÑO 


LUTECIO 
HAFNIO 
TANTALIO 
WOLFRAMIO 
RENIO 
OSMIO 
IRIDIO 
PLATINO 
ORO 
MERCURIO 


2-RELACION DE ELEMENTOS 


81 TL TALIO 

82 PB PLOMO 
83 Bl BISMUTO 
84 PO POLONIO 
85 AT ASTATO 
86 RN RADON 
87 FR FRANCIO 
88 RA RADIO 

89 AC ACTINIO 
90 TH TORIO 
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DESEAS CLASIFICAR: 
M =NUMEROS ATOMICOS 
N=NOMBRES DE ELEMENTOS 
S =SIMBOLOS ATOMICOS 


VOY A TRABAJAR EN MODO 
SU PANTALLA PERMANECERA OSCU- 
RA HASTA EL FIN DE LA CLASIFICA- 
CION 


DESEA CLASIFICAR: 
A =DE MENOR A MAYOR 
B=DE MAYOR A MENOR 


91 PA PROTACTINI. 
92 U URANIO 

93 NP NEPTUNIO 
94 PU PLUTONIO 
95 AM AMERICIO 
96 CM CURIO 

97 BK BERKELIO 
98 cF CALIFORNIO 
99 ES EINSTENIO 
100 FM FERMIO 


2-RELACION DE ELEMENTOS 


101 MD MENDELEVI. 
102 NO NOBELIO 
103 LW LAURENCIO 


3-CLASIFICACION 


2-RELACION DE ELEMENTOS 


NUM. SIMBOLO NOMBRE 
39 Y YTRIO 

70 YB YTERBIO 
54 XE XENON 
74 wW WOLFRAMIO 
23 v VANADIO 
92 Ú URANIO 
69 TM TULIO 

90 TH TORIO 

22 TI TITANIO 
65 TB TERBIO 


SISTEMA PERIODICO DE ELEMENTOS 


2-RELACION DE ELEMENTOS 


NUM. SIMBOLO NOMBRE 
52 TE TELURO 
43 TC TECNECIO 
73 TA TANTALIO 
81 TL TALIO 

11 NA SODIO 

14 Si SILICIO 

34 SE SELENIO 
62 SM SAMARIO 
44 RU RUTENIO 
37 RB RUBIDIO 
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SISTEMA PERIODICO DE ELEMENTOS 


2-RELACION DE ELEMENTOS 


NUM. SIMBOLO NOMBRE 
95 AM AMERIDIO 
13 AL ALUMINIO 
89 AC ACTINIO 


SISTEMA PERIODICO DE ELEMENTOS 


2-RELACION DE ELEMENTOS 


NUM. SIMBOLO NOMBRE 
18 A ARGON 

89 AC ACTINIO 
47 AG PLATA 

13 AL ALUMINIO 
95 AM AMERIDIO 
33 AS ARSENICO 
85 AT ASTATO 
79 AU ORO 

5 B BORO 

56 BA BARIO 


SISTEMA PERIODICO DE ELEMENTOS 


2-RELACION DE ELEMENTOS 


NUM. SIMBOLO NOMBRE 
52 TE TELURO 
90 TH TORIO 

22 TI TITANIO 
81 TL TALIO 

69 TM TULIO 

92 Ú URANIO 
23 v VANADIO 
74 wW WOLFRAMIO 
54 xXE XENON 
39 Y YTRIO 


SISTEMA PERIODICO DE ELEMENTOS 


2-RELACION DE ELEMENTOS 


NUM. SIMBOLO NOMBRE 


70 YB YTERBIO 
30 ZN CINC 
40 ZR CIRCONIO 


5 REM "SISTEMA PERIODICO DE 
ELEMENTOS” 

10 DIM A$(103,12) 

14 DIM F(103) * 

15 DIM B$(103,2) 

16 DIM Q(103,12) 

18 DIM Q$(12,12) 


$”,,,"1-ANOTAR”,, 

,, '3-CLASIFICAR”,,” 
4-GRABAR”,,'”9-MODIFICAR” 

30 INPUT N 

40 IF N<1 OR (N>4 AND N<>9) THEN 
GOTO 30 

50 GOTO N *100 

100 GOSUB 500 

105 FORN =1 TO 103 

110 1F AS(N,1)="” "THEN GOTO 142 

115 NEXT N 

120 PRINT AT 20,0;”"EL LISTIN ESTA 
COMPLETO” 

125 1F INKEY$=""”” THEN GOTO 125 

130 CLS 

140 GOTO 20 

142 PRINT ¡ NUM. ¡AT 4,5" 


T 20,0;'"'NUMERO ATO- 
MICO? (1-3 DIGITOS)”” 

144 INPUT F(N) 

145 PRINT AT 7,0;” ” 

146 PRINT AT 7,0;F(N) 

150 PRINT AT 20,0;'"" NOMBRE (12 C.)? 

155 INPUT AS(N) (1 TO 12) 

156 PRINT AT 7,14;” NE 

157 PRINT AT 7,14¡AS(N)J(1 TO 12); 

160 IF AS(N)M1 TO 2)<>*** "THEN GO- 
TO 170 

165 LET A$S(N(1 TO 12)=”” (20) q 


168 GOTO 130 

170 PRINT AT 20,0;”"SIMBOLO (2 C.)? 
175 INPUT BS(N) (1 TO 2) 

176 PRINTAT?7,5;” ”; 

177 PRINT AT 7,5;BS(N) (1 TO 2) 
180 GOTO 115 

200 FOR M=1 TO 103 STEP 10 

205 GOSUB 500 


208 PRINT 

210 FORH=0TO9 

215 IF AS(M+H)="”” THEN GOTO 230 

225 PRINT TAB 0;F(M+H);TAB 5;BS( 
M + H);TAB 13;AS(M + H) 

230 NEXT H 

240 IF INKEYS =>” THEN GOTO 240 

245 IF INKEYS<>".” THEN LET M= 
100 

250 NEXT M 

270 CLS 

275 GOTO 20 

300 GOSUB 500 

301 PRINT AT  4,0;"DESEA CLA- 
SIFICAR:” 

302 PRINT AT  6,6;'M=NUMEROS 
ATOMICOS”¡AT  7,6;""N =NOM- 
BRES DE ELEMENTOS”;AT 8,6; 
""s =SIMBOLOS ATOMICOS” 

303 INPUT ES 

304 PRINT ,,'"VOY A TRABAJAR EN 
MODO: SU PANTALLA PER- 
MANECERA OSCURA HASTA EL 
FIN DE LA CLASIFICACION” 

305 GOSUB 2000 

307 IF E$=”S'” THEN GOTO 3000 

308 IF E$='"M' THEN GOTO 1000 

309 IF INKEYS="”" THEN GOTO 309 

310 PRINT AT 20,5; "DASIFICANDO >; 


315 LETWS$="”” (19) 

318 LETV$="” (19) o 

319 FAST 

320 IF H$="'A'” THEN FOR P =102 TO 
1 STEP -1 

321 1|F H$=”B"” THEN FOR P=1 TO 
102 


325 1F H$="A'” THEN FORQ=1 TO P 

326 IF H$="”'B” THEN FOR Q=1 TO 
103-P 

330 IF H$="'A”' AND A$(Q,1 TO 12)<= 
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AS(Q+1,1 TO 12) OR A$(Q+1,1 TO 
1) =” THEN GOTO 370 

335 IF H$=""B” AND AS$(Q,1 TO 12)>= 
AS$(Q+1,1 TO 12) OR A$(Q+1,1 TO 
1) =" THEN GOTO 370 

340 LET WS(1 TO 12) =A$(Q,1 TO 12) 

345 LET V$=(1 TO 2)=B$(Q,1 TO 2) 

347 LETAA =F(0) 

350 LET AS(Q,1 TO 12)=AS(Q+1,1 
TO 12) 

355 LET B$(Q,1 TO 2) =B$(Q + 1,1 TO 2) 

357 LET F(Q) =F(Q +1) 

360 LET AS(Q+1,1 TO 12)=WS(1 TO 
12) 

365 LET BS$(Q+1,1 TO 2) =V$(1 TO 2) 

367 LETF(Q+1)=AA 

370 NEXTQ 

375 NEXT P 

378 SLOW 

380 PRINT AT 20,5;' 


385 | =”"” THEN GOTO 385 

390 CLS 

395 GOTO 20 

400 GOSUB 500 

410 PRINT ,,' "PREPARE EL CASSETTE 
PARA GRABAR SU LISTIN”” 


420 PRINT DS ESTE LISTO 


430 INPUT cs 

440 SAVE '"*ELEM”” 
450 CLS 

460-GOTO 20 

500 CLS 

510 PR 


520 520 + 

522 PRINT— *”"1-INTRODUCIR DATOS 
ELEMENTOS” 

525 RETURN 

524 PRINT_ ''2-RELACION DE ELE- 
MENTOS”” 

525 RETURN 

526 PRINT *”3-CLASIFICACION”” 

527 RETURN 

528 PRINT '*'4-GRABACION”” 

529 RETURN 

538 PRINT 

539 RETURN 

900 GOSUB 500 

910 PRINT AT 20,0;""NOMBRE A MO- 


*9-MODIFICACIONES”” 
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DIFICAR.:?” 

920 INPUT WS 

925 IF W$=>””” THEN GOTO 965 

930 FORM =1TO-100 

940 ¡F AS(M,1 TO LEN W$) =W$ THEN 
GOTO 970 

942 NEXT M 

945 PRINT AT 20,0;W$;""NO HALLADO 
EN LA RELACION 

950 LET V$ =INKEYS 

955 IF V$="”” THEN GOTO 950 

960 IF CODE V$=118 THEN GOTO 900 

965 CLS 

968 GOTO 20 

969 GOSUB 500 

970 PRINT 

971 PRINT 

972 PRINT TAB O;F(M);TAB 5;B$(M,1 
TO 2);TAB 13;A$(M,1 TO 12) 

973 PRINT AT 20,0;”LO MODIFICO 
S/N 

974 INPUT VS 

975 IF V$=””” THEN GOTO 974 

976 1F V$(1)<>'S'” THEN GOTO 900 

978 PRINT AT 20,0;”"NUEVO NOMBRE 
(12C.)?” 

979 INPUT A$(M,1 TO 12) 

981 PRINT AT 7,13;¡A$(M,1 TO 12) 

982 PRINT AT 20,0;”NUEVO SIMBO- 

LO (2C.)?” 

983 INPUT B$(M,1 TO 2) 

985 PRINT AT 7,5;B$(M,1 TO 2); 

986 PRINT AT 20,0;'”'NUEVO NUMERO 
ATOMICO (3 DIG.)?” 

987 INPUT F(M) 

988 PRINT AT 7,0;F(M); 

990 PRINT AT 20,0;'"DESEA MAS MO- 
DIFICACIONES (S/N)” 

995 INPUT VS 

997 IF V$(1) =”"S'* THEN GOTO 900 

998 CLS 

999 GOTO 20 

1000 REM 

1010 CLS 

1020 FAST 

1100 LETWS$=” 

1102 LET  V$=” 

1105 FORI=1TO 102 

1200 FOR J=1TO 103-1 

1210 LETX =F(J) 


(19) , 
(19) ,, 


1220 LET Y =F(J+1) 

1230 IF H$="'B” AND X>=Y THEN GO- 
TO 1300 

1235 IF H$=”A” AND X<=Y THEN GO- 
TO 1300 

1237 LET W$(1 TO 12) =A$(J,1 TO 12) 


1238 LET V$(1 TO 2) =B$(J,1 TO 2) 


1240 LET A$(J,1 TO 12) =A$(J+1,1 TO 
12) 

1242 LET B$(J,1 TO 2)=BS(J+1,1 TO 
2) 

1248 LET F(J) =Y 

1250 LET F(J +1) =X 

1260 LET A$(J + 1,1 TO 12) =W$(1 TO 12) 

1270 LET BS(J + 1,1 TO 2) =V$(1 TO 2) 

1300 NEXT y 

1310 NEXT 1 

1350 GOTO 378 

2000 REM 

2010 PAUSE 50 

2020 PRINT AT 15,0;""DESEA CLASIFI- 
CAR:” 

2030 PRINT AT 17,10;"A=DE MENOR 
A MAYOR” 

2040 PRINT AT 18,10;”"B=DE MAYOR 
A MENOR” 

2050 INPUT H$ 

2100 RETURN 

3000 REM 

3150 LET W$=” (19) 2% 

3180 LET V$="” (19) dd 

3190 FAST 

3200 IF H$=""A” THEN FOR P =102 TO 
1STEP -1 

3210 IF H$="B” THEN FOR P=1 TO 
102 

3250 IF H$="A” THEN FORQ=1 TO P 

3260 IF H$=”""B”” THEN FOR Q=1 TO 
103-P 

3300 IF H$=""A” AND B$(Q,1 TO 2)<= 
B$(Q +1,1 TO 2) OR B$(Q + 1,1 TO 1 
) =*” ”"THEN GOTO 3700 

3350 IF H$="”"B * AND B$(Q,1 TO 2)>= 
B$(Q + 1,1 TO 2) OR BS(Q+ 1,1 TO 1 
) =* *” THEN GOTO 3700 

3400 LET W$(1 TO 2)=B$(Q,1 TO 2) 

3450 LET V$(1 TO 12)=A$(Q,1 TO 12) 

3470 LETAA =F(Q) 

3500 LET B$(Q,1 TO 2) =B$(Q + 1,1 TO 2) 

3550 LET A$(Q,1 TO 12)=A$(Q+1,1 
TO 12) 


3570 LET F(Q) =F(Q +1) 

3600 LET Bs(Q+1,1 TO 2) =WS(1 TO 2) 

3650 LET AS(Q+1,1 TO 12) =V$(1 TO 12) 

3670 LET F(Q+1)=AA 

3700 NEXT Q 

3750 NEXT P 

3760 GOTO 378 

9980 PRINT (256*PEEK 
16404-16389)/1024 

9982 PAUSE 200 

9984 CLS 

9986 GOTO 20 

9990 SAVE "ELEK 

9999 GOTO 20 


16405 + PEEK 


PROGRAMA NUM. 4-B 


¿DESIMBOLOS 


E 


N =LISTAR NUMEROS ELEMENTOS 


Z =LISTAR SIMBOLOS ELEMENTOS 
F =LISTAR NOMBRES ELEMENTOS 
S =CARACTERISTICAS ELEMENTO 


D=DATOS ELEMENTOS 
T=DATOS CARACTERISTICAS 
H =MODIFICACION DATOS 


351 


O=MODIFICACION CARACTERISTIC. 


L =CLASIFICACION DATOS 


P=VARIABLES/COMPOSICION 


H HIDROGENO 


1.01 

1 
.071 
— 259 
- 253 


PESO ATOMICO 
VALENCIAS 
DENSIDAD 
PTO. FUSION 
PTO. EBULLIC. 
ELECT. CAPA K 
ELECT. CAPA L 
ELEC. CAPA M 
ELECT. CAPA N 
ELECT. CAPA O 
ELECT. CAPA P 
ELECT. CAPA Q 


II TN TA 


000000 


NUMERO ATOMICO? (1/3 CIFRAS) 


NS$(I) = INDICE PARAMETROS 


NS(1) = PESO ATOM. ELEM. 
NS$(2) = VALENCIAS 

N$(3) = DENSIDAD 

N$(4) = PUNTO FUSION 
N$(5) = PUNTO EBULLIC. 
NS(6) = ELECT. CAPA K 
NS$(7) = ELECT. CAPA L 
NB(8) = ELECT. CAPA M 
N$(9) = ELECT. CAPAN 
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N$(10) = ELECT. CAPA N 
N$(11) = ELECT. CAPA P 
N$(12) = ELECT. CAPA Q 


5 REM "SISTEMA PERIODICO DE 
ELEMENTOS” 
10 DiM A$(103,12) 
14 DIM F(103) 
15 DIM B$(103,2) 
16 DIM Q(103,12) 
18 DiM Q$(12,12) 
105 FORN =1 TO 103 
110 IF AS(N,1)<>" '” THEN GOTO 141 
115 NEXTN 
120 PRINT AT 20,0;”LA LISTA ESTA 
COMPLETA” 
125 IFINKEY$="'"” THEN GOTO 125 
130 CLS 
140 GOTO 9000 
141 od AT 0,0; 


142 PRINT AT 45,0; 
Es Fals 14: "Ni 


2 ATADO 


143 PRINT AT 20,0: "NUMERO ATO- 
MICO? (1-3 DIGITOS)” 

144 INPUT F(N) 

145 PRINT AT 7,0;” ” 

146 PRINT AT 7,0;F(N) 

150 PRINT AT 20,0; NOMBRE (12 C.)? 

155 INPUT AS$(N) (1 TO 12) 

156 PRINTAT7,143"  ”; 

157 PRINT AT 7,14;AS(N) (1 TO 12); 

160 IF AS=(N) (1TO 2)<>"**” THEN 
GOTO 170 

165 LET AS(N) (170 12)=” (0 ” 

168 GOTO 130 

170 PRINT AT 20,0;”"SIMBOLO (2 C.)? 

175 INPUT BS(N) (1 TO 2) 

176 PRINTAT7,5;” ”; 

177 PRINT AT 7,5;BS(N) )1 TO 2) 

180 GOTO 115 

190 GOTO 9000 

200 PRINT AT 0,0; 


202 FORM =1T0103 
206 PRINT AT. A o; 


207 ARINE 
208 PRINT 
210 FORH=0T09 


215 IFAS(M + H)=""” THEN GOTO 230 

225 PRINT TAB 0;F(M+H);TAB 5;BS$ 
(M + H);TAB 13;A$(M + H) 

227 PAUSE 50 

230 NEXT H 

236 FORI=6T0 18 : 

237 PRINT AT J,0;”* 432) 


238 NEXT 1 

239 PAUSE 100 

240 INKEYS="””” THEN GOTO 240 

245 |F INKEY$<>”.” THEN LET M= 
100 

250 NEXT M 

270 CLS 

275 GOTO 9000 


301 PRINT AT 4,0;”DESEA CLASIF! - 
CAR:” 
302 PRINT AT  6,6;""M=NUMEROS 


ATOMICOS”'¡AT  7,6;”N =NOM- 
BRES DE ELEMENTOS”';AT 8,6;” 
S =SIMBOLOS ATOMICOS” 

303 INPUT ES 

304 PRINT ,, "VOY A TRABAJAR EN 
MODO FAST'*SU PANTALLA PER- 
MANECERA OSCURA HASTA EL 
FIN DE LA CLASIFICACION”” 

305 GOSUB 2000 

307 IFE$=”"S' THEN GOTO 3000 

308 IF E$='"M”' THEN GOTO 1000 

309 IF INKEY$=””"" THEN GOTO 309 

310 PRINT AT 20,5;* 7; 


315 LETWS="” (19) ee 
318 LETV$=" (19) » 
319 FAST 


320 IF H$=”'A” THEN FOR P =102 TO 
1STEP -1 

321 IFH$="B” THEN FORP =1 TO 
102 

325 IFH$="”A'”"THEN FORO=1TO P 

326 IF H$="B'"' THEN FORQ =1 TO 
103-P 

330 IF H$="'A”' AND A$(Q,1 TO 12) 
<= AS(Q + 1,1 TO 12) OR AS(O + 1,1 
TO1)' '"THEN GOTO 370 

335 IFH$=""B" AND A$(Q,1 TO 12)<= 
A$(Q+1,1 TO 12) OR AS(Q+ 1,1 TO 
1) ”* THEN GOTO 370 


340 LET W$(1 TO 12) =A$(Q,1 TO 12) 


345 LET V$(1 TO 2) =B$(Q,1 TO 2) 

347 LETAA =F(Q) 

350 LET A$(Q,1 TO 12) =AS(Q+1,1 
TO 12) 

355 LET B$(Q,1 TO 2) =B$(Q + 1,1 TO 2) 

357 LET F(Q)=F(Q+ 1) 

360 LET AS(Q+1,1 TO 12) =WS(1 TO 
12) 

365 LET B$(Q+1,1 TO 2) =V$(1TO 2) 

367 LET F(Q+1)=AA 

370 NEXT Q 

375 NEXT P 

378 SLOW 

380 PRINT AT 20,5; 


385 IFINKEY$=""”? THEN GOTO 385 
390 CLS 
395 GOTO 9000 


910 
DIFICAR.:?”” 

920 INPUT W$ 

925 IF W$="*"' THEN GOTO 965 

930 FOR M =1 TO 100 

940 IF A$(M,1 TO LEN W5$) =W$ THEN 
GOTO 970 

942 NEXT M 

945 PRINT AT 20,0;W$;'""NO HALLADO 
EN LA RELACION” 

950 LET V$ =INKEYS$ 

955 IF V$="”' THEN GOTO 950 

960 IF CODE V$ =118 THEN GOTO 900 


965 CLS 

970 PRINT AT 5,0; ¡AT 5,5; 
$ 2: AT , 

971 PRINT 


972 PRINT TAB 0;F(M);TAB 5;B$(M,1 
TO 2);TAB 13;¡A$(M,1 TO 12) 

973 PRINT AT 20,0;”LO MODIFICO 
S/N 

974 INPUT V$ 

975 IF V$ =""** THEN GOTO 974 

976 IF V$(1<>”S'* THEN GOTO 900 

978 PRINT AT 20,0;””NUEVO NOMBRE 
(120.)?” 

979 INPUT A$(M,1 TO 12) 

981 PRINT AT 7,13;A$(M,1 TO 12) 

982 PRINT AT 20,0;'””NUEVO SIM- 
BOLO (2C.)?”" 

983 INPUT B$(M,1 TO 2) 
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985 PRINT AT 7,5;B$(M,1 TO 2); 

986 PRINT AT 20,0;'"" NUEVO NUMERO 
ATOMICO (3 DIG.)?”* 

987 INPUT F(M) 

988 PRINT AT 7,0;F(M); 

990 PRINT AT 20,0;'"DESEA MAS MO- 
DIFICACIONES (S/N)”” 

995 INPUT V$ 

997 ¡IF V$(1) ='*S'? THEN GOTO 900 

998 CLS 

999 GOTO 9000 


1000 REM 

1010 CLS 

1020 FAST 

1100 LETWS$="” (19) me 
1102 LETV$=” (19) di 


1105 FOR! =1 TO 102 

1200 FOR J =1 TO 103-1 

1210 LET X =F(J) 

1220 LET Y =F(J + 1) 

1230 IF H$ =”"'B” ANDX>=Y THEN GO- 
TO 1300 

1235 IF H$="”A'' AND X<=Y THEN GO- 
TO 1300 

1237 LET W$(1 TO 12) =A$(J,1 TO 12) 

1238 LET V$(1 TO 2) =B$(J,1 TO 2) 

1240 LET A$(J,1 TO 12) =AS(J+1,1 TO 
12) 

1242 LET B$(J,1 TO 2) =B$(J+1,1 TO 2) 

1248 LET F(J) =Y 

1250 LET F(J+1)=X 

1260 LET A$(J+1,1 TO 12) =W$(1 TO 12) 

1270 LET B$(J+1,1 TO 2) =V$(1 TO 2) 

1300 NEXT J 

1310 NEXT | 

1350 GOTO 378 

2000 REM 

2010 PAUSE 50 

2020 PRINT AT 15,0;”"DESEA CLASI- 
FICAR:” 

2030 PRINT AT 16,10;”A =DE MENOR 
A MAYOR” 

2040 PRINT AT 17,10;"'B=DE MAYOR A 
MENOR” 

2050 INPUT H$ 

2100 RETURN 


3000 REM 

3150 LETW$="”" (19) Y 
3180 LETV$="” (19) Pl 
3190 FAST 


3200 IF H$="A” THEN FORP =102 
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TO 1STEP -1 
3210 IF H$=""B" THEN FORP=17T0 
102 


3250 IF H$="'"A” THENFORQ=1TOP 

3260 IF H$=""B' THENFORQ=1TO 
103-P 

3300 IF H$="A”' AND B$(Q,1 TO 2)<= 
B5(Q+1,1TO 2) OR B$(Q+1,1 TO 1 
)=” *” THEN GOTO 370 


3350 IF H$=""B” AND B$(Q,1 TO 2)>= 
B$(Q +1,1 TO 2) OR BS(Q+ 1,1 TO 1 
)=” "THEN GOTO 370 

3400 LET W$(1 TO 2) =B$(Q,1 TO 2) 

3450 LET V$(1 TO 12) =A$(Q,1 TO 12) 

3470 LETAA =F(Q) 

3500 LET B$(Q,1 TO 2) =B$(Q + 1,1 TO 2) 

3550 LET A$(Q,1 TO 12) =A$(Q+1,1 TO 
12) 

3570 LET F(Q) =F(Q + 1) 

3600 LET B$(Q + 1,1 TO 2) =W$(1 TO 2) 

3650 LET F(Q + 1,1 TO 2) =V$(1 TO 12) 

3670 LET F(Q+1)=AA 

3700 NEXT Q 

3750 NEXT P 

3760 GOTO 378 

7000 REM INTRODUCCION DE CARAC- 
TERISTICAS 

7010 FORI=1T0 103 

7020 A ld 0,0; $ 


7030 PRINT AT 2,0;F(I);AT 2,45:B8(1,1 
TO 2);AT 2,13;A$(1,1 TO 12) 

7035 PRINT AT 3,0;”. RATOS. 
A E 

7040 FORJ=1TO 12 

7050 PRINT AT J+4,0;N$(J,1 TO 15) 

7060 IF C$="'S'"* THEN GOTO 7080 

7070 IF.C$="'"T" THEN INPUT Q(1,J) 

7080 PRINT AT J+4,18;Q(1,J) 

7090 NEXT J 

7100 PAUSE 200 

7110 CLS 

7120 NEXT | 

7150 RETURN 

7500 REM OBTENCION DE CARACTE- 
RISTICAS 

7505 PRINT AT 0,0; : 
DICO DEELEMENTOS”.,, 

7510 PRINT AT 6,6; M =NUMEROS 
ATOMICOS”;¡AT — 7,6;""N =NOM- 
BRES DE ELEMENTOS”';AT 8,6;” 


S =SIMBOLOS ATOMICOS” 

7520 INPUT F$ 

7530 CLS 

7535 IF F$=""N” THEN GOTO 7740 

7537 IF F$="”"S” THEN GOTO 7640 

7540 IF F$='"M” THEN PRINT AT 20,0; 
"NUMERO ATOMICO? (1/3 Cl- 
FRAS)” 

7550 INPUT NA 

7560 FORI=1T0 103 

7570 IF F(I) =NA THEN GOTO 7800 

7580 NEXT 1 

7590 GOTO 7800 

7640 IF F$="S” THEN PRINT AT 20,0; 
"SIMBOLO ELEMENTO? (2 DIGI- 
TOS)” 

7650 INPUT H$ 

7660 FOR 1=1 TO 103 

7670 1F B$(1,1 TO 2)=H$ THEN GO- 
TO 7800 

7680 NEXT | 

7690 GOTO 7800 

7740 IF F$=""N” THEN PRINT AT 20,0; 
"NOMBRE ELEMENTO?(12 DIGI- 
TOS)” 

7750 INPUT L$ 

7760 FOR1=1T0 103 

7765 1F A$(1,1 TO 12)=L$ THEN GOTO 
7775 

7770 IF AS(I,1 TO 12)<>L$ THEN GOTO 
7780 

7780 NEXT 1 

7802 PRINT AT 2,0;F(I)¡AT 2,5;B$(1,1 
TO 2);AT 2,13;A$(1,1 TO 12) 

7810 PRINT AT 3,0;LL_*:AT 3,5; 

AT 3,13; 2 Á 

7815 GOSUB 9500 

7820 FOR J=1TO 12 

7830 PRINT AT J + 4,0;N$(J,1 TO 15) 

7832 PRINT AT J+ 4,18;Q(1,J) 

7840 NEXT J 

7850 PAUSE 400 

7860 CLS 

7900 RETURN 

8000 PRINT TAB 10; WARIABEES” 

8010 PRINT AT 4,0;”"N$(I) = INDICE PA- 


RAMETROS” 

8040 PRINT AT 8,0;"'N$(1) =PESO (2) 
ATOM. ELEM.” 

8042 PRINT— AT  9,0;”"N$(2) =VALEN- 


CIAS” 


8044 PRINT AT  10,0;”'N$(3) = DENSI- 
DAD” 

8046 PRINT AT 11,0;'"N$(4) = PUNTO 
FUSION” 

8048 PRINT AT 12,0;'"N$(5) = PUNTO 
EBULLIV.” 

8050 PRINT AT 13,0;'"N$(6) = ELECT. 
CAPA K” 

8052 PRINT AT 14,0;'"N$(7) = ELECT. 
CAPA L” 

8054 PRINT AT 15,0;'"N$(8) = ELECT. 
CAPA M” 

8056 PRINT AT 16,0;''N$(9) = ELECT. 
CAPA N” 

8058 PRINT AT 17,0;'"N$(10) = ELECT. 
CAPA N” 

8060 PRINT AT 18,0;'"N$(11) =ELECT. 
CAPA P” 

8062 PRINT AT 19,0;'"N$(12) = ELECT. 
CAPA Q” 

8100 PAUSE 400 

8110 CLS 

8120 RETURN 

8500 PRINT AT 0,5; 
DATOS” 

20 PRINT AT 2,0; NEEME. "¡AT 2,5;” 

SE "¡AT 2, 14; NOMBRE 


8507 DIM V(103) 

8508 DIM Z$(103,2) 

8510 FOR | =1 TO 103 

8520 LET V(I) =1 

8525 PRINT AT 5,0;V(1) 

8527 PRINT AT 20,0; NUM. ATOMICO 
=*":V(I) 

6531 PRINT AT 20,0;”'SIMBOLO ATO- 
MICO” 

8532 INPUT Z$(1) 

8534 PRINT AT 5,13;Z$(1,1 TO 2) 

8536 PRINT AT 20,0;'" NOMBRE ELE- 
MENTO”” 

8540 INPUT AsS(1) 

8550 PRINT AT 5,5;A$(1) 

8560 NEXT | 

8600 PRINT AT 21,0; CONFORME CON 
LOS DATOS? (S/N)” 

8610 INPUT W$ 

8620 IF W$="'S'' THEN RETURN 

8640 CLS 

8641 PRINT AT 20,0;'"DATOS A REC- 

“TIFICAR (0 =FIN)” 


8642 PAUSE 100 

8643 PRINT AT 20,0;”' 43 

8644 PRINT AT 0,0;*” y E 
DICO: 

8645 en NT AT 2,0; E a 

E ES ¡AT 2, 15; NE q RE 


E E 

8650 PRINT AT 20,0;””NUM.ELEM. (1/3 
CIFRAS) 

8660 INPUT | 

8662 PRINT AT 5,0; 

8664 LET V(I)=1 

8674 PRINT AT 20,0;”"SIMBOLO ATO— 
MICO (2 DIGITOS) 

8676 INPUT Z3(1) 

8678 PRINT AT 5,5;B8(1,1 TO 2) 

8680 PRINT AT 20,0;”NOMBRE ELE- 
MENTO (12 DIGITOS)” 

8690 INPUT AS(I) 

8692 IF 1 =00R AS(I)=""0” THEN GOTO 
8600 

8695 PRINT AT 20,0;” 

8700 PRINT AT 5,15;AS(1,1 TO 12) 

8702 FORJ=1T0 12 

8704 PRINT AT 7+J,0;N$(J,1 TO 15) 

8705 PRINT AT 6,0;” »AT6,5; e 
—""¡AT6,15;” ” 

8710 INPUT Q(l,J) 

8712 PRINT AT 7+3J,18;Q(1,J) 

8718 NEXTJ 

8720 GOTO 8640 

9000 PRINT AT 0,0; 
RIQDIS dE 

9005 PRINT AT 2,5;' 


9010 PRINT AT 6,0;'"N =LISTAR NUME- 
ROS ELEMENTOS” 

9020 PRINT AT 7,0;""Z =LISTAR SIMBO- 
LOS ELEMENTOS” 

9030 PRINT AT 8,0; 'F =LISTAR NOM- 
BRES ELEMENTOS” 

9050 PRINT AT 9,0;'"S =CARACTERIS- 
TICAS ELEMENTO” 

9060 PRINT AT 17,0; ”P =VARIABLE S/ 
COMPOSICION” 

9070 PRINT AT 11,0;"D=DATOS ELE- 
MENTOS”” 

9080 PRINT AT 12,0;”"T=DATOS CA- 
RACTERISTICAS”” 

9090 PRINT— AT  13,0;”H=MODIFI- 
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CACION — DATOS” 
9092 PRINT AT 14,0;"0=MODIFICA- 


CION  —CARACTERISTIC.” 

9095 PRINT AT  15,0;”L =CLASIFICA- 
CION DATOS” 

9100 INPUT C$ 

9110 CLS 


9115 IFC$=”'H” THEN GOTO 900 
9117 IFC$=""L” THEN GOTO 300 
9120 IF C$ =*"N”* THEN GOTO 200 
9122 IF C$=""Z'”* THEN GOTO 200 
9124 IF C$=""F*"? THEN GOTO 200 
9140 IF C$=”"S”' THEN GOSUB 7500 
9150 IF C$="”"P*? THEN GOSUB 8000 
9160 IF C$=”"T'"* THEN GOSUB 7000 
9170 1FC$="”0' THEN GOSUB 8640 
9180 IFC$="*"D”” THEN GOTO 100 
9200 GOTO 9000 

9500 PRINT AT 0,0; 


9510 DIM N$(12,15) 
9515 LET N$(1) =”"PESO ATOMICO =" 
9520 LET N$(2) = "VALENCIAS =”' 


9530 LET N$(3) =” DENSIDAD ="' 
9540 LET N$(4) ="'PTO. FUSION =”* 
9550 LET N$(5) ='""PTO. EBULLIC. =”” 


”ELECT.CAPAK=" 

”ELECT. CAPA L="” 

”ELEC.CAPAM="” 

9590 LET N$(9) =”"ELECT. CAPAN =” 

9600 LET N$(10) =''ELECT. CAPAO'=” 

9610 LET N$(11) =”'ELECT. CAPAP="” 

9620 LET N$(12) =''ELECT. CAPAQ="” 

9630 PAUSE 200 

9650 RETURN 

9980 PRINT (256*PEEK 16405 + PEEK 
16404-16389)/1024 

9982 PAUSE 200 

9984 CLS 

9986 GOTO 9000 

9990 SAVE "ELEM” 

9999 GOTO 9000 


9560 LET N$(6) 
9570 LET N$(7) 
9580 LET N$(8) 


6000 REM 
6005 PRIN 


6010 PRINT AT 20,0;'"'CARACTERISTI- 
CA A CLASIFICAR? (1/12)” 

6020 GOSUB 8000 

6030 INPUT T 

6040 CLS 


6045 PRINT AT 0,0; 


6050 PRINT AT 2,0;”CLASIFICACION 
DE””;N$(T) 
6060 PRINT AT 3,17;” 


6070 PRINT AT 10,0; A 


6080 PRINT AT 12,0;"B= t 


<AMENOR 
6090 INPUT G$ 
6100 PRINT AT 10,0;” (32) 
6110 PRINT AT 12,0;” (32) 
6120 PRINT AT 4,0;” (32) 


6130 PRINT AT 5,0;” (32) 


6200 FORP =1 TO 103- 1 

6210 FORS=1TO 103-P 

6220 LET X =Q(S,T) 

6225 LET Y =Q(S+1,T) 

6230 IFG$="'"A'” AND X>=Y THEN GO- 
TO 6300 

6235 IF G$=""B'"* AND X<=Y THEN GO- 
TO 6300 

6240 LET Q(S,T) = Y 

6250 LET Q(S+1,T) =X 

6260 PRINT TAB 0;A$(S,1 TO 12);TAB 15 
¡Q(S,T) 

6300 NEXT S 

6310 NEXT P 

6320 PAUSE 400 

6350 RETURN 

8090 IF C$=""X" THEN GOTO 8120 

9060 PRINT AT 18,0;”P=VARIABLES 
COMPOSICION” 

9097 PRINT— AT 16,0;”X=CLASIFIC. 
CARACTERISTICAS” 

9190 IF C$=""X'' THEN GOSUB 6000 


PROGRAMA NUM. 4-C 


Ú URANIO 19.07 


5 REM "SISTEMA PERIODICO DE 


ELEMENTOS” 

92 U URANIO 10 DIM A$(103,12) 
14 DIM F(103) 

PESO ATOMICO E 92 15 DIM B$(103,2) 
VALENCIAS = 6 16 DIM Q(103,12) 
DENSIDAD S 19.07 18 DIM Q$(12,12) 
PTO. FUSION E 1132 105 FORN =1 TO 103 
PTO. EBULLIC. E 3818 110 IF AS(N,1)<>”* ” THEN GOTO 141 
ELECT. CAPA K = 2 115 NEXT N 
ELECT.CAPAL = 8 120 PRINT AT 20,0;"LA LISTA ES- 
ELECT. CAPA M E 18 TA COMPLETA” 
ELECT. CAPAN = 32 125 IFINKEY$=""" THEN GOTO 125 
ELECT.CAPAO Ez 21 130 CLS 
ELECT. CAPAP E 9 140 GOTO 9000 
ELECT.CAPAQ = 2 141 PRINT AT 0,0;”Í 

D 
NUMERO ATOMICO ? (1/3 CIFRAS) 142 


143 PRINT AT 20,0;NUMERO ATOMI- 
CO? (1/3 DIGITOS)” 

144 INPUT F(N) 

145 PRINT AT 7,0;**(3)” 

146 PRINT AT 7,0;F(N) 

150 PRINT AT 20,0;""NOMBRE (12 C.)? 

155 INPUT A$(N) (1 TO 12) 

156 PRINTAT7,14;" >; 

157 PRINT AT 7,14;AS(N) (1 TO 12); 

160 IF AS(N) (1 TO 2)<>'**'” THEN GO- 
TO 170 

165 LET AS(N) (1 TO 12) =” (20) » 

168 GOTO 130 


LEY GENERAL =2*(N **2) 


ELECT. CAPA K(1) =2 
ELECT. CAPA L(2) =8 
ELECT. CAPA M(3)=18 
ELECT. CAPA'N(4) =32 
ELECT. CAPA O(5) = 32 
ELECT. CAPA P(6) =9 
ELECT. CAPA Q(7) =2 


CARACTERISTICA DENSIDAD 170 PRINT AT 20,0;""SIMBOLO (2 C.)216)* 
LIMITE INFERIOR=0 175 INPUT BS(N) (1 TO 2) 
LIMITE SUPERIOR = 1000 176 PRINTAT 7,5; *”; 


177 PRINT AT 7,5;BS(N) (1 TO 2) 


SM 180 GOTO 115 
190 GOTO 9000 

Li LITIO .071 

BE BERILIO 0.53 


B BORO .071 
Cc CARBONO  .071 
N NITROGENO 2.34 
0) OXIGENO 2.26 
F 
N 
N 
S 


206 PRINT AT 5,0;'"N 
] "¡AT 5,1 


FLUOR 0.81 207 
NEON 1.14 208 PRINT 

SODIO 1.11 210 FORH=0TO9 

AZUFRE 2.07 215 IF AS(M+H)=""" THEN GOTO 230 


> m 
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225 PRINT TAB 0;F(M+H);TAB 5;B$ 
(M + H)TAB 13;A$(M + H) 

227 PAUSE 50 

230 NEXT H 

236 FOR!I=86T0 18 

237 PRINT AT 1,0;” (32) ” 

238 NEXT | 

239 PAUSE 100 

240 IFINKEYS$”'*THEN GOTO 240 

245 IF INKEY$<>”.” THEN LET M= 
100 

250 NEXT M 

270 CLS 

275 GOTO 9000 

300 PRINT AT 0,0;”” 


301 PRINT AT 4,0;”DESEA CLASIFI- 
CAR:” 
302 PRINT AT 6,6;"'M =NUMEROS 


ATOMICOS”;¡AT  7,6;'”N =NOM- 
BRES DE ELEMENTOS”';AT 8,6;”'S 
=SIMBOLOS ATOMICOS” 

303 INPUT ES 

304 PRINT ,'"VOY A TRABAJAR EN 
MODO FAST SU PANTALLA PER- 
MANECERA OSCURA HASTA EL 
FIN DE LA CLASIFICACION” 

305 GOSUB 2000 

307 IF E$=”S'” THEN GOTO 3000 

308 IF E$='"M” THEN GOTO 1000 

309 IF INKEY$=""*"* T 

310 PRINT AT 20,5;” 


315LET W$=” (19) 
318LET  V$=” (19) E 
319 FAST 


320 IF H$="”A' THEN FOR P =102 TO 
1STEP -1 

321 1F H$=”B” THEN FOR P=1 TO 
102 

325 IFH$=”A” THENFORQ=1TOP 

326 1F H$=”B” THEN FOR Q=1 TO 
103-P 

330 IF H$=”A” AND A$(Q,1 TO 12)<= 
AS(Q + 1,1 TO 12) OR AS(Q+1,1 TO 
1)=*” ' THEN GOTO 370 

335 IF H$="”"B” AND A$(Q,1 TO 12)>= 
AS(Q + 1,1 TO 12) OR AS(Q+1,1 TO 
1)2”” THEN GOTO 370 

340 LET WS$(1 TO 12) =A$(Q,1 TO 12) 

345 LET VS(1 TO 2) =B$(Q,1 TO 2) 


347 LETAA =F(Q) 

350 LET A$(Q,1 TO 12) =AS$(Q+1,1 
TO 12) 

355 LET B$(Q,1 TO 2) =B$(Q+1,1 TO 2) 

357 LET F(Q) =F(Q + 1) 

360 LET A$(Q + 1,1 TO 12) =Ws$(1 TO 
12) 

365 LET B$(Q + 1,1 TO 2) =V$(1 TO 2) 

367 LETF(Q+1)=AA 

370 NEXTQ 

375 NEXT P 

378 SLOW 

380 PRINT AT 20,5;”€ 


3, 


*”* THEN GOTO 385 


385 
390 CLS 

395 GOTO 9000 

900 PRINT AT 0,0;” 


910 PRINT AT 20,0; NOMBRE A MO- 
DIFICAR.?:” 

920 INPUT WS 

925 IF W$="'” THEN GOTO 965 

930 FOR M =1 TO 100 

940 IF AS(M,1 TO LEN WS) =W$ THEN 
GOTO 970 

942 NEXT M 

945 PRINT AT 20,0;W$;'NO HALLADO 
EN LA RELACION” 

947 PAUSE 100 

950 LET V$ =INKEYS$ 

955 IF V$=”” THEN GOTO 950 

960 IF CODE V$=”"*”* THEN GOTO 900 

965 CLS 

968 PRINT AT 5,0;”: 

PAT 5,13; 

970 PRINT AT 7,0; 
ANTAD 

971 PRINT 

972 PRINT AT 7,0;F(M);¡AT 7,5;B$(M,1 
TO 2);¡AT 7,13;A$(M,1 TO 12) 

973 PRINT AT 20,0;”LO MODIFICO 
S/N” 

974 INPUT V$ 

975 IF V$=”"  THENGOTO 974 

976 IF V$(1)<>'S'' THEN GOTO 900 

978 PRINT AT 20,0;”NUEVO NOM- 
BRE (12C.)?” 

979 INPUT A$(M,1 TO 12) 

981 PRINT AT 7,13;A$(M,1 TO 12) 

982 PRINT AT 20,0;”NUEVO SIM- 


AMO OA 


ay”; 


BOLO (2C.)?” 

983 INPUT B$(M,1 TO 2) 

985 PRINTAT7,5;B$(M,1 TO 2) 

986 PRINT AT 20,0; NUEVO NUMERO 
ATOMICO (3 DIG,)?”” 

987 INPUT F(M) 

988 PRINT AT 7,0;F(M); 

990 PRINT AT 20,0;'"DESEA MAS MO- 
DIFICACIONES (S/N)”* 

995 INPUT VS 

997 IF V$(1) =""S”* THEN GOTO 900 

998 CLS 

999 GOTO 9000 

1000 REM 

1010 CLS 

1020 FAST 

1100 LETW$="” 

1102 LET V$="” 

1105 FORI=1T0O 102 

1200 FORJ=1T0 103-1 

1210 LETX=F(J) 

1220 LET Y =F(J+1) 

1230 IF H$=""B"” ANDX>=Y THEN GO- 
TO 1300 

1235 IF H$="'A'' AND X<=Y THEN GO- 
TO 1300 

1237 LET WS(1 TO 12) =A$(J,1 TO 12) 

1238 LET VS(1 TO 2) =BS$(J,1 TO 2) 

1240 LET A$(J,1 TO 12) =A$(J+1,1 TO 
12) 

1242 LET BS(J,1 TO 2) =B$(J+1,1 TO 2) 

1248 LET F(J) = 

1250 LET F(J+1)=X 

1260 LET AS(J+1,1 TO 12) =WS$(1 TO 12) 

1270 LET BS(J+ 1,1 TO 2) =V$(1 TO 2) 

1800 NEXT J 

1310 NEXT 1 

1350 GOTO 378 

2000 REM 

2010 PAUSE 50 

2020 PRINT AT 15,0;”"DESEA CLASI- 
FICAR:” 

2030 PRINT AT 16,10;"A=DE MENOR 
A MAYOR” 

2040 PRINT AT 17,10;”B=DE MAYOR 
A MENOR” 

2050 INPUT H$ 

2100 RETURN 

3000 REM 

3150 LET W$=" (19) ” 

3180 LET V$=” (19) » 


(19) » 
(19) dE 
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3190 FAST 
3200 IF H$="A” THEN FOR P=102 TO 


1STEP -1 
3210 IF H$=”B” THEN FOR P=1 TO 
102 


3250 IF H$="A” THENFORQ=1TOP 

3260 IF H$="'B” THEN FOR Q=1 TO 
103-P 

3300 IF H$="'A” AND B$(Q,1 TO 2)<= 
B$(Q + 1,1 TO 2) OR B$(Q+1,1 TO 1 
)=" ' THEN GOTO 370 

3350 IF H$="'B” AND B$(Q,1 TO 2)>= 
B$(Q + 1,1 TO 2) OR B$(Q+1,1 TO 1 
)=" "THEN GOTO 370 

3400 LET WS(1 TO 2) = B$(Q,1 TO 2) 

3450 LET V$(1 TO12) =A$(Q,1 TO 12) 

3470 LET AA =F(Q) 

3500 LET B$(Q,1 TO 2) =B$(Q+1,1 TO 2) 

3550 LET A$(Q,1 TO 12)=A$(Q+1,1 TO 
12) 

3570 LET F(Q)=F(Q +1) 

3600 LET B$(Q + 1,1 TO 2) =W8$(1 TO 2) 

3650 LET AS(Q+1,1TO 12) =V$(1 TO 12) 

3670 LET F(Q+1)=AA 

3700 NEXT Q 

3750 NEXT P 

3760 GOTO 378 

5000 PRINT AT 0,0; 


5002 PRINT AT 21,0;"'CARACTERISTI- 
CAS? (1/12)” 

5005 PRINT AT 2,0;”” ii 

5007 GOSUB 8000 

5010 INPUT V 

5012 CLS 

5015 ERA AT 0 pr 


5018 PRINT AT 2,0; CARACTERISTI- 
CA” 

5020 PRINT AT 2,16;'1 21'¡NS(V,1 TO 13) 

5025 PRINT AT 3,16," >; 9 NA 


5030 PRINT AT 4,0; "LIMITE INFERIOR 
=""¡AT 5,20;” 

5040 INPUT AA 

5050 PRINT AT 4,20;AA 

5060 PRINT AT 6,0;""LIMITE SUPERIOR 
="'¡AT 7,20; 18)» 

5070 INPUT BB 

5080 PRINT AT 6,20;BB 

5090 PAUSE 100 
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5092 A AT 8,0; "SIM”;¡AT — 8,5;” 


5095 PRINT 

5100 FOR I =1 TO 103 

5110 IF BB>Q(1,V) AND Q(I,V)>AA THEN 
PRINT TAB 0;B$(1,1 TO 2);TAB 5; 
$(1,1 TO 12);TAB 20;Q(1,V) 

5120 NEXT | 

5125 PAUSE 800 

5127 CLS 

5130 RETURN 

5500 CLS 

5502 PRINT AT 0,5;” 
NES” 

5505 PRINT AT 3,0; "LEY GENERAL = 
2*(N .9)0 

5510 FORK=86T0 12 

5515 PRINT AT 4+2*(K-5),0;N$(K,1 
TORA RS 
5)**2) 

5520 NEXT K 

5525 PRINT AT 14,20;'32”” 

5527 PRINT AT 16,20;*9”” 

5529 PRINT AT 18,20;'*2”* 

5535 DIM W(103) 

5550 PAUSE 600 

5560 CLS 


5690 PRINT 

5695 PRINT 

5700 FORI=1T0O 103 

5705 LET W(I) =0 

5710 FORJ=86T0 12 

5730 LET W(1) =W(l) + Q(1,J) 

5750 NEXT J 

5752 PRINT TAB 0;AS$(1,1 TO 12);TAB 14; 
F(I);TAB 20;W(!) 

5754 PAUSE 50 

5755 REM IF W(l)<>0 THEN LET F(l)= 
wW(I) 

5760 NEXT | 

5825 PAUSE 400 

5850 RETURN 

6000 REM 

6002 GOSUB 8000 

6005 PRINT AT 0,0; 
CAF 


6010 PRINT AT 21,0;'”CARACTERISTI- 
CA? (1/12)” 

6030 INPUT T 

6040 CLS 

6045 PRINT AT 0,0;” 


LASIFICACION 


6050 PRINT AT 2, :"CLASIFICACION 
DE”';N$(T) 

6052 PRINT AT 2,31 (1” 

6060 PRINT AT 3,17;” 


6070 PRINT AT 10,0;”4 


(15) 


6090 IN PUT Gs 


6100 PRINT AT 10,0;” (32) 
6110 PRINT AT 12,0;” (82) 
6120 PRINT AT 4,0;” (32) 


6130 PRINT AT 5,0;” (32) 


6200 IFG$="”B'' THEN GOSUB 7900 

6240 GOSUB 7200 

6250 RETURN 

7000 REM INTRODUCCION DE CARAC- 
TERISTICAS 

7010 FOR I|=1 TO 103 

7020 AT AT 0,0;3 


7030 PRINT AT 2 ¿O0:F();¡AT 2,45;B5(1,1 
TO 2);AT 2,13;A$(1,1 TO 12) 

7035 PRINT AT 3,0; L31_”;AT NS 
2)>:AT 3,13;” 12 a 

7040 FORJ=1T0 12 

7050 PRINT AT J + 4,0;N$(J,1 TO 15) 

7060 IF C$=”S'” THEN GOTO 7080 

7070 IF C$=”T” THEN INPUT Q(l,J) 

7080 PRINT AT J + 4,18;Q(1,J) 

7090 NEXT J 

7100 PAUSE 200 

7110 CLS 

7120 NEXT 1l 

7150 RETURN 

7200 DIM B(103) 

7202 FAST 

7205 LETP =103 

7230 FORJ=1TO 11 

7250 FORI=J+1T012 


7260 FORR=1 TOP 

7265 LET B(R) =T 

7270 LETL =B(R) 

7272 LETA =Q(I,L) 

7274 LETB =Q(J,L) 

7280 IF A<=B THEN GOTO 7320 
7290 IF A>=B THEN GOTO 7370 
7300 NEXT R 

7310 GOTO 7370 

7320 FORK =1T0 12 

7330 LET X =Q(1,K) 

7340 LET Q(I,K) =Q(J,K) 

7350 LET Q(J,K) =X 

7360 NEXT K 

7370 NEXT | 

7380 NEXT J 

7390 IF G$="'B”? THEN GOSUB 7900 


7397 PRINT 
7400 FORI=1TO 103 
7410 IF Q(I,T) =0 THEN GOTO 7480 


7450 PRINT TAB 0;B$(1,1 TO 2); 

7452 PRINT TAB 5;A$(1,1 TO 12); 

7454 PRINT TAB 22;Q(1,T); 

7480 NEXT | 

7485 PAUSE 800 

7487 CLS 

7490 RETURN 

7500 REM OBTENCION DE CARACTE- 
RISTICAS 

7505 PRINT AT 0,0;” 


7510 PRINT AT 6,6;""'M =NUMEROS 
ATOMICOS”;¡AT  7,6;”N =NOM- 
BRES DE ELEMENTOS””;AT 8,6;''S 
= SIMBOLOS ATOMICOS”” 

7520 INPUT F$ 

7530 CLS 

7535 IF F$="'N' THEN GOTO 7740 

7537 IF F$='"S'”' THEN GOTO 7640 

7540 IF F$='"M” THEN PRINT AT 20,0; 
"NUMERO ATOMICO? (1/3 CIl- 
FRAS)” 

7550 INPUT NA 

7560 FOR! =1 TO 103 

7.570 IF F(I) =NA THEN GOTO 7800 

7580 NEXT 1 

7590 GOTO 7800 

7640 1F F$=”'S”? THEN PRINT AT 20,0; 
"”SIMBOLO ELEMENTO? (2 DIGI- 
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TOS)” 

7650 INPUT H$ 

7660 FOR | =1 TO 103 

7670 IF B$(1,1 TO 2)=H$ THEN GOTO 
7800 

7680 NEXT | 


7690 GOTO 7800 

7740 IF FS='”N” THEN PRINT AT 20,0; 
"NOMBRE ELEMENTO? (12 DIGI- 
TOS)” 

7750 INPUT L$ 

7760 FORI=1T0 103 

7765 IF AS$(1,1 TO 12)=L$ THEN GOTO 
7802 

7770 1F AS(1,1 TO 12)>>L$ THEN GOTO 
7780 

7780 NEXT I 

7802 PRINT AT 2,0;F(1);AT 2,5;B$ 
(1,1 TO 2);AT 2,13¡A$(1,1 TO 12) 

7810 PRINT AT 3,07 3,5; 
A e a RL 

7815 GOSUB 9500 

7820 FORJ=1T0 12 

7830 PRINT AT J+ 4,0;NS(J,1 TO 15) 

7832 PRINT AT J + 4,18;Q(1,J) 

7840 NEXT J 

7850 PAUSE 400 

7860 CLS 

7900 RETURN 

7915 FORI=1 TO 103 

7920 FORJ=1T0 12 

7930 LET Q(I,J) = — Q(I,J) 

7940 NEXT J 

7950 NEXT | 

7960 RETURN 

8000 PRINT AT 2,10;* $ 

8010 PRINT AT 4,0; N8(l) =INDICE 


PARAMETROS” 

8040 PRINT AT 8,0;'"N$(1) = PESO ATO- 
M. ELEM.” 

8042 PRINT AT  9,0;”N$(2) =VALEN- 
CIAS” 

8044 PRINT. AT  10,0;”"N$(3) =DENSI- 
DAD” 

8046 PRINT AT  11,0;'""N$(4) =PUNTO 
FUSION”” 

8048 PRINT AT  12,0;'""N$(5) = PUNTO 
EBULLIC.” 

8050 PRINT AT  13,0;”"N$(6) = ELECT. 
CAPA K”” 
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8052 PRINT AT  14,0;""N$(7) =ELECT. 


CAPA L” 

8054 PRINT AT  15,0;'"N$(8) = ELECT. 
CAPA M”” 

8056 PRINT AT  16,0;”"N$(9) =ELECT. 
CAPAN” 

8058 PRINT AT 17,0;'*N$(10) ='"ELECT. 
CAPA O” 

8060 PRINT AT 18,0;'"N$(11) = ELECT. 
CAPA P” 

8062 PRINT AT 19,0;'*N$(12) ='*ELECT. 
CAPAQ” 


8090 IF C$=”*"X*'' THEN GOTO 8120 
8100 PAUSE 400 

8120 RETURN 

8500 PRINT AT 0,5; 


8507 DIM V(103) 

8508 DIM Z$(103,2) 

8510 FOR1=1TO 103 

8520 LET V(I) =1 

8525 PRINT AT 5,0;V(I) 

8527 PRINT AT 20,0;””"NUM.ATOMICO 
="":V() 

8531 PRINT AT 20,0;”"SIMBOLO ATO- 
MICO” 

8532 INPUT ZS(l) 

8534 PRINT AT 5,13:Z$(1,1 TO 2) 

8536 PRINT AT 20,0;”NOMBRE ELE- 
MENTO” 

8540 INPUT A$(I) 

8550 PRINT AT 5,5;A8(1) 

8560 NEXT 1 

8600 PRINT AT 21,0;”'CONFORME CON 
LOS DATOS? (S/N)” 

8610 INPUT WS 

8620 IF W$=""S”' THEN RETURN 

8640 CLS 

8641 PRINT AT 20,0;'"DATOS A RECTI- 
FICAR (0=FIN)” 

8642 PAUSE 100 

8643 PRINT AT 20,0;” a 

8644 P de 


8645 PRINT. AT  6,6;”M=NUMERO 
ATOMICO” 
8646 PRINT AT 8,6;”N =NOMBRE ELE- 


MENTO” 


8647 PRINT— AT 
ATOMICO” 

8648 INPUT U$ 
8649 GOSUB 8850 
8650 IF U$=”'S'* THEN GOTO 8670 
8651 IF U$=""N'” THEN GOTO 8680 
8652 IF U$="”"M'” THEN GOTO 8655 
8655 PRINT AT 2,0; "NUM. ";¡AT 
PAT 2,15; Mi 


10,6;”"S =SIMBOLO 


8657 PRINT — AT 
1/3CIFRAS) 

8660 INPUT 1 

8662 PRINT AT  5,0;1¡AT  5,5;B$(l,1 
TO 2);¡AT 5,15;A$(1,1 TO 12) 

8663 GOTO 8702 

8664 LET V(!) =1 


20,0;'""NUM.ELEM.( 


8674 PRINT AT 20,0;'""SIMBOLO ATO- 
MICO (2 DIGITOS)” 

8676 INPUT K$ 

8677 GOSUB 8900 

8678 PRINT AT 5,0;1;AT 5,5;B$(1,1 TO 
2);AT 5,15;A$(1,1 TO 12) 

8679 GOTO 8702 

8680 PRINT A 


MENTO (12 DIGITOS)”” 

8690 INPUT O$ 

8691 GOSUB 8950 

8692 IF1|=00RAS$(I)="'F” THEN GOTO 
8600 

8700 PRINT AT  5,0;1;¡AT  5,5;B$(l,1 
TO 2);AT 5,15;A$(1,1 TO 12) 

8702 PRINT AT 20,0;”” 


8703 FORJ=1T0 12 

8704 PRINT AT 7+J,0;N$(J,1 TO 15) 

8705 PRINT AT 6,0; "-—L—>:AT 6,5;” 
are 15 — 2 > 

8710 INPUT Q(l,J) 

8712 PRINT AT 7+J,18;Q(1,J) 


8718 NEXT J 

8720 GOTO 8640 

8850 PRINT AT 6,6;” (24) 
8852 PRINT AT 8,6;” (24) 
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vil 9140 IF C$=”"S”* THEN GOSUB 7500 


8854 PRINT AT 10,6;” (24) 9150 IFC$="”"P” THEN GOSUB 8000 
cio 9160 IF C$="”"'"T” THEN GOSUB 7000 

8856 RETURN 9170 1F C$=”0' THEN GOSUB 8640 

8900 FOR I|=1TO 103 9180 IF C$=”*D” THEN GOTO 100 

8905 IF B$(1,1 TO 2) =K$ THEN RETURN 9190 IFC$=""X”? THEN GOSUB 6000 

8910 NEXT | 9195 IFC$="”"0*” THEN GOSUB 5000 

8912 RETURN 9197 IFC$="'E'” THEN GOSUB 5500 

8950 FORI=1 TO 103 9200 GOTO 9000 

8955 IF A$(1,1 TO 12)=0$ THEN RE- 9500 PRINT AT O 

TURN q 4 


8960 NEXT | 9510 DIM N$(12,15) 
8962 RETURN 9515 LET N$(1) =”"PESO ATOMICO =” 
9000 CLS 9520 LET N$(2) =”"VALENCIAS =” 
9002 P SST 9530 LET N$(3) =" DENSIDAD =>” 
4 : 9540 LET N$(4) =""PTO. FUSION =”” 
9005 PRINT AT 2,5; 9550 LET N$(5) ="PTO. EBULLIC="' 
Bl Ss 9560 LET N$(6) = ''ELECT. CAPAK="” 
9010 PRINT AT 6,0;”N=LISTAR NU- 9570 LET N$(7) =”"ELECT. CAPA L” 
MEROS ELEMENTOS” 9580 LET N$(8) ="'ELECT. CAPAM="” 
9020 PRINT AT 7,0;'"Z =LISTAR SIMBO- 9590 LET N$(9) =”ELECT.CAPAN=" 
LOS ELEMENTOS” 9600 LET N$(10) ='ELECT. CAPAO="” 
9030 PRINT AT 8,0;”"F=LISTAR NOM- 9610 LET N$(11) ="ELECT.CAPAP=" 
BRES ELEMENTOS” 9620 LET N$(12) ="'ELECT. CAPAQ="” 
9050 PRINT AT 9,0;”"S =CARACTERIS- 9630 PAUSE 200 
TICAS ELEMENTO” 9650 RETURN 
9060 PRINT— AT 21,0;”P=VARIABLE 9980 PRINT (256*PEEK 16405 + PEEK 
S/COMPOSICION” 16404 — 16389)/1024 
9070 PRINT AT 11,0;""D=DATOS ELE- 9982 PAUSE 200 
MENTO” 9984 CLS 
9080 PRINT AT 12,0;"T=DATOS CA- 9986 GOTO 9000 
RACTERISTICAS” 9990 SAVE "ELENE'” 
9090 PRINT AT 13,0;”H=MODIFICA- 9999 GOTO 9000 


CION DATOS” 

9092 PRINT AT 14,0;"'0 =MODIFICA- 
CION CARACTERISTIC.” 

9095 PRINT AT  16,0;”L =CLASIFICA- 


CION DATOS” E =PREGUNTAS DIDACTICAS 
9097 PRINT— AT 17,0;”X=CLASIFI- 
CACION CARACTERISTIC.” N =LISTAR NUMEROS ELEMENTOS 
9098 PRINT AT 18,0;”"Q =NIVELES Z =LISTAR SIMBOLOS ELEMENTOS 
CARACTERISTIC.” F =LISTAR NOMBRES ELEMENTOS 
9090 PRINT AT 19,0;”E=SUMA ELE- S = CARACTERISTICAS ELEMENTO 
CTRONES”” 
9100 INPUT C$ D=DATOS ELEMENTOS 
9110 CLS T=DATOS CARACTERISTICAS 
9115 1FC$="'"H” THEN GOTO 900 H =MODIFICACION DATOS 
9117 IFC$="”L' THEN GOTO 300 O = MODIFICACION CARACTERISTIC. 
9120 IFC$=""N”' THEN GOTI 200 
9122 IFC$="”Z' THEN GOTO 200 L =CLASIFICACION DATOS 


9124 IFC$=”'"F”* THEN GOTO 200 X =CLASIFICACION CARACTERISTIC. 
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5400 PRINT AT 0,4;” 


DACTICAS” : 

5501 PRINT— AT  3,0;'"M=NUMEROS 
ATOMICOS” 

5502 PRINT AT 4,0; 'N=NOMBRES 
ELEMENTOS” 

5503 PRINT AT  5,0;”S=SIMBOLOS 
ELEMENTOS” 


5505 INPUT T$ 

5506 IF T$=”"M'” THEN GOTO 5600 

5507 IF T$=""N” THEN GOTO 5700 

5508 IF TS$="'"S”* THEN GOTO 5800 

5600 REM 

5601 LET NA =INT (RND*102+ 1) 

5602 IF NA>103 THEN GOTO 5601 

5603 PRINT AT 8,0;'"NUMERO ATO- 
MICO (1/3 CIFRAS) DE:”;AT 10,0; 
"SIMBOLO ELEMENTO:”;BS(NA 
,1 TO 2)¡AT 12,0; "NOMBRE ELE- 
MENTO:”*;¡A$S(NA,1 TO 12) 


5604 INPUT NN 

5605 PRINT AT 14,0; R 
NN 

5606 1F 


NA THEN PRINT AT 14,20; 


”, 


5607 IF NN<>NA THEN PRINT AT 16,0; 
"NO, PRUEBA OTRA VEZ” 

5608 IF NN<>NA THEN GOTO 5604 

5610 GOTO 5900 

5701 LET NA =INT (RAND *102+ 1) 

5702 IF NA>103 THEN GOTO 5601 


5703 PRINT AT 8,0; "NOMBRE ELE- 
MENTO (12 DIGITOS) DE:'*;AT 10, 
0;'' NUMERO ATOMICO:”;¡F(NA); 
AT 12,0;'"SIMBOLO ELEMENTO:”; 
¡BS(NA,1 TO 2) 

5704 INPUT D$ 

5705 PRINT — AT 
DS 

5706 ¡IF D$=AS(NA,1 TO 12) THEN. 
PRINT AT 14,20;” 

5707 IF DES>AS(NA,1 T 


14,0;” 


PRINT AT 16,0;” , PRUEBA 
OTRA VEZ” 

5708 IF DI<>AS(NA,1 TO 12) THEN GO- 
TO 5704 


5710 GOTO 5900 

5801 LET NA =1NT (RND*102 + 1) 

5802 IF NA>103 THEN GOTO 5601 

5803 PRINT AT 8,0;”"SIMBOLO ELE- 
MENTO (2 DIGITOS) DE:”*;AT 10,0; 
"NUMERO ATOMICO:”;F(NA);¡AT 
12,0;”"'NUMERO ELEMENTO:””; 
AS(NA,1 TO 12) 

5804 INPUT D$ 

5805 PRINT AT 14,20;” 


DS 

5806 IF D$=(NA,1 TO 2) THEN PRINT 
AT 14,20;' ES 

5807 IF D$<>B ,1TO 2) THEN PRINT 
AT 16,0; ”, PRUEBA OTRA 
VEZ” 

5808 IF DI<>BS(NA,1 TO 2) THEN GOTO 
5804 


5810 RETURN 
5900 PAUSE 400 
5950 RETURN 
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5.-""DIETA” (Programa núm. 5) 


Por último se presenta un programa cuyos elementos están ya clasificados y se encuentran 
dispuestos para buscar un dato rápidamente cualquiera que sea la OPCION que se pre- 
tenda. 


El programa contiene 80 alimentos básicos, cada uno con su número de orden F(80,1). 
Para cada alimento se establecen los valores de 17 componentes alimenticios: calorias, 3 
componentes básicos, 5 minerales y 8 vitaminas. 


Para mayor facilidad de utilización del programa, la opcion P muestra la relación de 
variables utilizada. 


La utilización del Programa es muy simple: se busca el número del alimento (opción N) 
dado su nombre (8 digitos) y viceversa (OPCION A). 


Conocido el número, se obtiene el aporte en % sobre la dieta normal (estimada en 2.800 
calorías) de 100 gramos del alimento en cuestión. Además se expresan cantidades físicas 
para 9 de los componentes. 


La opción L relaciona las calorías por cada 100 gramos de los 80 alimentos y la Windica los 
alimentos cuyas calorías se encuentran entre 2 límites elegidos previamente. 


La opción M permite una lista de los alimentos cuyo contenido del componente (1 de los 
17 posibles) que elijamos es máximo. 


La más interesante es la opción D, valor dietético. Con ella podemos establecer una 
dieta equilibrada, de tal forma que un régimen alimenticio para un determinado periodo 
de tiempo (parcialmente 7 días) se mantenga en unos niveles próximos al 100% deseado 
para cada uno de los componentes deseados. 


Para ello se establece un periodo de tiempo (NUM. DIAS CONTEMPLADOS) común a 
todos los datos a introducir a continuación dentro de la OPCION D. 


Seguidamente se van introduciendo el código de cada alimento de la dieta a estudiar 
y la cantidad a consumir (total del periodo o diaria, en cuyo caso tendremos que introducir 
varias cantidades referidas al mismo alimento). 

Las columnas que aparecen entonces en la pantalla indican: 

1.- Número de días x % sobre la dieta x Núm. de gramos/100 de ese alimento. 

2.- La columna 1 acumulada de los alimentos considerados hasta ese momento. 

3.- Columna 2 entre el número de días considerado. 

El objetivo es conseguir que la columna 3 al final del periodo considerado arroje unas 
cifras lo más próximas a 100 posible pero de forma CONJUNTA (no deben producirse 
grandes excesos en unos componentes y déficits en otros). Aparte de esto existen compo- 


nentes dentro de los que es dificil corregir esta homogeneidad (Vit. A,D,K, y P P.) y otros 
cuyo exceso es perjudicial (calorias y lípidos). 
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La forma de operar es establecer una dieta semanal previamente descompuesta en alimen- 
tos (por su código) y cantidades, e introducir estos valores en el programa, rectificando a 
posteriori algunos de ellos de tal forma que se logre la homogeneidad deseada (10010 
en la columna 3). 


Para aquellos que dispongan de mayor capacidad de almacenamiento (32, 48, 64 K) les 


aconsejamos amplien estos alimentos a 200-250, con lo cual el supuesto que se estudia 
tiende a ser mucho más real. 


PROGRAMA NUM.5 


el SIMBOLOS: 41 JUDIAS V 42 LCHE DES 
43 LCHE FRE 44 LECHUGA 
N =BUSCAR EL NUM. ALIMENTO 45 LENTEJAS 46 LIMONES 
A=ALIMENTO 47 MACARRON 48 MANDARIN 
C =COMPONENTE 49 MANTEQUI 50 MANZANA 
V = VALOR ALIMENTICIO 51 MARGARIN 52 MELOCOTO 
D=VALOR DIETETICO 53 MELON 54 MERLUZA 
M =MAXIMO 55 MIEL 56 NARANJA 
P=VARIABLES/COMPOSICION 57 NATA 58 PAN BLAN 
L=CALORIAS (100 GRS.) 59 PAN INTE 60 PATATA 
W =NIVELES CALORIAS 61 PERAS 62 PIMIENTO 
63 PIÑA 64 PLATANO 
65 QUES EMM 66 QUES GRU 
67 QUES MAN 68 QUES ROQ 
69 QUES VIL 70 RIÑON CO 
1 ACEIT OL 2 ACEITGI 71 RIÑON TE 72 RIÑON VA 
3 ACEITUNA 4 ACELGA 73 SANDIA 74 SARDINA 
5 ALBARICO 6 ALCACHOF 75 SARD ACE 76 TOMATE 
7 ALMENDRA 8 ARROZ 77 TRUCHA 78 UVA 
9 ATUN 10 AVELLANA 79 YOGUR 80 ZANAHORI 
11 AZUCAR B 12 BERENGEN 
13 BESUGO 14 BONITO 
15 BOQUERON 16 CACAHUET 
17 CARN COR 18 CARN POL 1 CALORIAS 
19 CARN TER 20 CARN VAC 2 GLUCIDOS 
21 CEBOLLA 22 CEREZA 3 LIPIDOS 
23 CIRUELA 24 COLES BR 4 PROTEINA 
25 COLIFLOR 26 CHAMPIN 5 CALCIO 
27 DATILES 28 ESPARRAG 6 COBRE 
29 ESPINACA 30 FRESA 7 HIERRO 
31 GARBANZO 32 GUISANTE 8 MAGNESIO 
33 HIGA COR 34 HIGA POL 9 FOSFORO 
35 HIGA TER 36 HIGA VAC 10 VITPP 
37 HIGOS 38 HUEVO 11 VITK 
39 HUEV YEM 40 JUDIAS B 12 VITE 


13 VITD 
14 VITC 
15 VIT B2 
16 VIT B1 
17 VITA 


NOMBRE ALIMENTO = ALMENDRA 


NUMERO 7 ALMENDRA 


APORTE EN 0/0 SOBRE DIETA NOR- 
MAL DE 100 GR DE MANTEQUI 


1 CALORIAS 
2 GLUCIDOS 
3 LIPIDOS 

4 PROTEINA 
5 CALCIO 

6 CO7NE 

7 HIERRO 

8 MAGNESIO 
9 FOSFORO 
10 VIT PP 

11 VITK 

12 VITE 

13 VITD 

14 VITC 

15 VIT B2 

16 VIT B1 

17 VITA 


27 


pair 
o 
00 — 


mb mb 
DOO0-0000N NN” 


MAN 


o 


APORTE EN 0/0 SOBRE 
MAL DE 100 GR DE AVELLANA 


1 CALORIAS 
2 GLUCIDOS 
3 LIPIDOS 

4 PROTEINA 
5 CALCIO 

6 COBRE 

7 HIERRO 

8 MAGNESIO 
9 FOSFORO 
10 VITPP 

11 VITK 

12 VITE 

13 VITD 

14 VITC 


23 

4 
82 
20 
31 
39 
42 
36 
40 


756 CAL. 
54 GRS. 
0.7 GRS. 
0 MGR. 
01.  MGR. 
0 MGR. 
1650 UL. 
DIETA NOR- 
644 CAL. 
16 GRS. 
41 GRS. 
1.5 MGR. 
460 U.t. 
3 MGR 


15 VITB2 24 
16 VIT B1 30 
17 VITA 4 
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0.4 MGR. 
0.45 MGR. 
100 UU. 


NUM. DIAS CONTEMPLADOS? 


10 


COD. ALIMENTO? (FIN =0) 


10 AVELLANA 
CANTIDAD EN GRS.? 


1000 


VALORACION DIETETICA 


1 CALORIAS 
2 GLUCIDOS 40 


3 LIPIDOS 820 
4 PROTEINA 200 
5 CALCIO 310 
6 COBRE 390 
7 HIERRO 420 
8 MAGNESIO 360 
9 FOSFORO 400 
10VITPP 50 
11 VITK 0 
12VITE 1400 
13VITD 1150 
14VITC 100 
15VITB2 240 
16 VIT B1 300 
17 VITA 40 


COMPONENTE? (FIN =0) 


17 VITA 

4 ACELGA 85 
5 ALBARICO 55 
9 ATUN 124 
14 BONITO 70 
29 ESPINACA 211 
33 HIGA COR 960 
34 HIGA POL 242 
35 HIGA TER 450 
36 HIGA VAC 420 


230 23 
40 4 

820 82 
200 20 
310 31 

390 39 
420 42 
360 36 
400 40 
50 5 

0 0 

1400 140 
1150 115 
100 10 
240 24 
300 30 
40 4 
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39 HUEV YEM 
49 MANTEQUI 
51 MARGARIN 
53 MELON 

57 NATA 

65 QUES EMM 
66 QUES GRU 
67 QUES MAN 
68 QUES ROQ 
74 SARDINA 
80 ZANAHORI 


CALORIAS (100 GRS.) 


36 


220 


NUM 


mabo ba 
2000300 aAGn- 


12 


ALIMENTOS CALORIAS 


ACEIT OL 
ACEIT Gl 


* ACEITUNA 


ACELGA 
ALBARICO 
ALCACHOF 
ALMENDRA 
ARROZ 
ATUN 
AVELLANA 
AZUCAR B 
BERENGEN 
BESUGO 
BONITO 
BOQUERON 
CACAHUET 
CARN COR 
CARN POL 
CARN TER 
CARN VAC 
CEBOLLA 
CEREZA 
CIRUELA 
COLES BR 
COLIFLOR 
CHAMPIN 
DATILES 
ESPARRAG 
ESPINACA 
FRESA 
GARBAZO 
GUISANTE 
HIGA COR 
HIGA POL 
HIGA TER 


924 
924 
168 
28 
56 
56 
616 
364 
140 
644 
420 
28 
84 
140 
112 
616 


36 
37 
38 
39 


HIGA VAC 
HIGOS 
HUEVO 
HUEV YEM 


CALORIAS NIVEL INF. = 400 


NIVEL SUP. = 600 
11 AZUCARB 420 
65 QUESEMM 420 
66 QUESGRU 448 
67 QUES MAN 420 
69 QUES VIL 476 
LES 


N$(1) = INDICE COMPONENTES (17) 
A$(1) =INDICE ALIMENTOS (80) 
V(J) = CODIGO ALIMENTO (17) 


0 


APORTE 0/0 S/ DIETA NORMAL 
APORTE DE 100 G. DE ALIMENTO 
ND =NUMERO DE DIAS 

CA =CODIGO ALIMENTO 

GR =CANTIDAD EN GRAMOS 
VALORACIÓN DIETETICA 


2 DIM F(80,1) 

10 GOSUB 9000 

17 LETJ =1 

20 INPUT B$ 

23 CLS 

25 IF B$="'N' THEN GOSUB 5000 

26 IF B$=""W' THEN GOSUB 7130 

27 IF B$="'P" THEN GOTO 8000 

28 IF B$="L' THEN GOSUB 7000 

30 IF B$<>"C” AND B$<>"P” THEN 
GOTO 120 

40 PRINT ? 


60 PRINT 

70 FORI=1TO17 
80 PRINT 1;” **;NS(1) 
85 NEXT | 

90 PAUSE 400 


95 CLS 

100 GOTO 10 

125 IF B$<>""A”* THEN GOTO 200 

130 PRINT ” 

140 PRINT 

150 FOR 1=1 TO 80 

160 PRINT 1;” *;A$(1) 

170 NEXT 1 

175 PAUSE 600 

176 CLS 

180 GOTO 10 

203 IF B$<>”"V* THEN GOTO 300 

205 PRINT '** CODIGO ALIMENTOS” 

206 PRINT 

207 INPUT J 

208 PRINT y; ¡THB 4;¡A$(J) 

209 PRINT *"*-———"”":TAB 4;* 

210 PRINT 

212 PAUSE 200 

215 CLS 

220 PRINT '"'APORTE EN 0/0 SOBRE 
DIETA NORMAL” 

230 PRINT ”” 


(8) » 


(32) 


”» 


240 PRINT *” DE 100 GR E ¡A$(J) 

250 ENE (e) A e 
255 PRINT 

260 FOR | =1 TO 17 


270 PRINT TAB 0jl;” "¿NS(I);TAB 
15;A(4,1); 

275 NEXT | 

277 PRINT_— AT  5,18;” =*”;A(J,1)*28; 
TAB 24;""CAL.””; 

278 PRINT AT 6,18;” =”";A(J,2)*.4.5; 
TAB 24;”GRS.””; 

279 PRINT AT 7,18; =";¡A(J,3)*.50; 
TAB 24;”GRS.””; 

280 PRINT AT 17,18; ="”;A(J,13)*4.; 
TAB 24;”U.1.””; 

282 PRINT AT 18,18;'” =";A(J,14)*.30; 
TAB 24;”"MGR.”; 

283 PRINT AT 20,18;*” =""¡INT (A(J,16) 
*1.5)/100;TAB 24; *"MGR.”; 

284 PRINT AT 21,18;” ="";A(J,17)*25. 
00;TAB 24;**U.1.”; 

285 PRINT AT 19,18;'* ="'¡INT (A(J,15) 
*1.70)/100;TAB 24;'"MGR.””; 

286 PRINT AT 14,18; =”';¡INT (B(J,10) 


*.15);TAB 24;""MGR””; 
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287 PAUSE 400 

288 CLS 

290 GOTO 10 

302 IF B$<>'D'' THEN GOTO 600 

305 DIM V(17) 

310 PRINT *'NUM. DIAS CONTEMPLA- 
DOS?” 

315 PRINT 

320 INPUT ND 

325 PRINT ND 

327 PRINT 

330 PRINT "COD. ALIMENTO? (FIN = 
0)” 

335 PRINT 

340 INPUT CA 

347 PRINT 

350 IFCA=0 
THEN GOTO 450 

360 PRINT CA;” ”¡AS(CA) 

362 PRINT A US A 

365 PRINT 

370 PRINT '*CANTIDAD EN GRS.?” 

375 PRINT 

380 INPUT GR 

385 PRINT GR 

387 PRINT 

388 PAUSE 200 

390 FORI=1T0 17 

400 LET — V(I)=V(1) + INT 
GR/100) 

410 NEXT | 

420 GOSUB 500 

430 GOTO 330 

450 LETJ=2 

510 CLS 

520 PRINT VALORACION DIETETICA 


530 PRINT ”” 


(A(CA,I)* 


(20) 


535 PRINT 
540 PRINT . 
550 FOR |=1T0 17 
560 LET T(1) =INT (V( 
565 PRINT AT 3,8;” 


570 PRINT AT 1+ 4,013 ”; 
14 4,14;INT_ (A(CA,!)*GR/100);AT 
1 +4,20;V(I)¡AT | + 4,26;T(1) 

580 NEXT | 

582 PRINT 

585 IF J=2 THEN CLS 
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587 1F J=2 THEN GOTO 10 

590 RETURN 

610 CLS 

620 PRINT "COMPONENTE? (FIN =0) 


625 PRINT 
630 INPUT K 
640 IF K=0THEN CLS 
643 IF K=0 THEN GOTO 10 
645 PRINT K;'' ":NS(K) 
646 PRINT "> 
647 PRINT 
648 PAUSE 200 
650 FORI=1T080 
660 IF A(1,K)>30 THEN PRINT 1; "¡AS 
(15 "¡A(1,K) 
670 NEXT I 
675 PAUSE 600 
677 CLS 
680 GOTO 1 
700 SAVE DIETA” 
710 GOTO 1 
5000 REM 
5010 PRINTTAB 10; NOK 
5050 PRINT AT 4,0;"'NOMBRE ALIMEN- 
TO="”; 
5055 PRINT AT 5,18;” (8) 2 
5060 INPUT E$ 
5070 PRINT AT 4,18;E$; 
5080 PAUSE 200 
5090 PRINT 
5100 FOR1=1TO 80 
5150 1F A$(1) =E$ THEN PRINT AT 10,0; 
"NUMERO"; I;TAB 11;E$ 
5200 NEXT | a 
5210 PRINTTAB 7;"=L2..'; 
5230 PAUSE 200 
5235 CLS 
5250 RETURN 
7000 PRINT TAB 5;”CALORIAS (100 


GRS.)” . 
7002 PRINTTAB 5; =—_2L___ 


7005 DIM L(80) 


7010 PRINT AT 3,0;'"NUM?”;”  *;*ALI- 

MENTOS”;” ”; y ¿SALORIAS”5, y (2) 
7012 PRI y O 
7014 PRINT 


7015 FORI=1T080 
7020 PRINT TAB O;!;TAB 5;¡AS(I);TAB 


18;A(1,1)*28; 
7080 NEXT | 
7090 PAUSE 400 
7100 CLS 
7120 RETURN 
7130 PRINT "NIVEL INF. DE CALORIAS 


””. 


7140 INPUT AA 

7143 PRINTTAB 25:AA 

7144 PRINTTAB 25; —ÉL__» 
7146 PRINT 

7150 PRINT "NIVEL SUP. DE CALORIAS 
7160 INPUT BB 

7163 PRINTTAB 25;BB 

7164 PRINTTAB 25: —BL_» 
7185 PAUSE 200 

7190 CLS 

7300 FORI|=1T0 80 


7305 LET F(1,1) =A(l,1)*(28) 
7355 NEXT | 

7360 CLS 

7400 PRINT TAB 5;””: 


7410 PRINT 

7420 PRINT 

7421 PRINT TAB 0;'”"CALORIAS NIVEL 
INF. == 

7422 PRINTTAB 22;AA 

7423 PRINTTAB 22; >» 

7427 PRINT 

7428 PRINT TAB 9;”"NIVEL SUP. = 

7429 PRINT TAB 22;BB 

7430 PRINTTAB 22; LL» 

7446 PRINT 

7448 PAUSE 200 

7500 FOR |=1TO 80 

7510 IF BB>F(1,1) AND F(1,1) AA THEN 
PRINT TAB O;I;TAB 5;AS(I);TAB 18 
¡F(1,1) 

7555 NEXT 1 

7557 PAUSE 600 

7560 CLS 

7570 PRINT ''OTRO NIVEL DE CALO- 
RIAS?”; 

7580 INPUT Q$ 

7585 CLS 

7590 IF Q$="'SI”* THEN GOTO 7130 

7600 RETURN 

8000 PRINTTAB 10; VARIABLES 


8010 PRINT 

8020 PRINT *'N$(1)=INDICE COMPO- 
NENTES (17)” 

8030 PRINT '”*A$(l) =INDICE ALIMEN- 


TOS (80)”” 

8040 PRINT '"V(J)=CODIGO ALIMEN- 
TO (17)” 

8050 PRINT 

8060 PRINT TAB 10;” 

8070 PRINT 

8080 PRINT ''APORTE 0/0 S/DIETA 
NORMAL” 

8090 PRINT ''APORTE DE 100 G. DE 
ALIMENTO” 


8100 PRINT ''ND =NUMERO DE DIAS” 

8110 PRINT "CA =CODIGO ALIMENTO 

8120 PRINT ''GR =CANTIDAD EN GRA- 
MOS” 

8130 PRINT '"'VALORACION DIETETI- 
CA” 
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8150 PAUSE 400 
8170 CLS 

8200 GOTO 10 

9008 PRINT AT 0,5;” 


9011 PRINT AT 4,0;”"N =BUSCAR EL 
NUM. ALIMENTO”” 

9012 PRINT AT 5,0;”A =ALIMENTO”” 

9013 PRINT **C** =COMPONENTE”” 

9014 PRINT ”V=VALOR ALIMENTICIO 


9015 PRINT ”D=VALOR DIETETICO” 

9016 PRINT ''M =MAXIMO”” 

9017 PRINT ”P =VARIABLES/COMPO- 
SICION”” 

9018 PRINT ”'L =CALORIAS (100 GRS.)”” 

9019 PRINT *”W=NIVELES CALORIAS 


9020 RETURN 
9990 SAVE DIETA?” 
9999 GOTO 1 


PARTE V.- RELACION DE SENTENCIAS PRINT CON CARACTERES INVERSOS 


PROGRAMA 1 
20 CATALOGO DE ESTRELLAS 
305 FAST 
310 CLASIFICANDO 
380 CLASIFICACION COMPLETA 
420 NEW-LINE 
510 ESTRELLAS MAS IMPORTANTES 
524 ESTRELLA CONSTELACION 


POROGRAMA 2 
20 ORDENACION DECADENAS LITERALES = 510 
22 OPCIONES 

142 NUM, SIMBOLO, NOMBRE = 206 = 970 

304 FAST 


310 CLASIFICANDO 
380 CLASIFICACION COMPLETA 
PROGRAMA 3 
20 ARCHIVO DE CINTAS = 510 
142 NUM, AUTOR, TITULO = 206 = 970 
304 FAST 
310 CLASIFICANDO 
380 CLASIFICACION COMPLETA 
420 NEW-LINE 
PROGRAMA 4-A 
20 SISTEMA PERIODICO DE ELEMENTOS = 510 
142 NUM, SIMBOLO, NOMBRE 
206 NUM, SIMBOLO, NOMBRE =970 


304 FAST 
310 CLASIFICANDO 
380 CLASIFICACION COMPLETA 
420 NEW-LINE 
PROGRAMA 4-B 
141 SISTEMA PERIODICO DE ELEMENTOS = 200 = 300 = 900 = 7020 
142 NUM, SIMBOLO, NOMBRE ELEMENTO = 8505 = 8645 
206 NUM, SIMBOLO, NOMBRE = 970 
304 FAST 
310 CLASIFICANDO 
380 CLASIFICACION COMPLETA 
7505 SISTEMA PERIODICO DE ELEMENTOS = 8644 = 9000 
8000 VARIABLES 
8500 INTRODUCCION DATOS 
9005 CLAVE DE SIMBOLOS 
9500 CARACTERISTICAS ELEMENTOS 
6005 CLASIFICACION CARACTERISTICAS = 6045 
6070 A =DE MENOR A MAYOR 
6080 B =DE MAYOR A MENOR 
PROGRAMA 4-C 
141 SISTEMA PERIODICO DE ELEMENTOS = 200 = 300 = 900 = 7020 =7505 
142 NUM, SIMBOLO, NOMBRE ELEMENTO <= 8505 = 8655 = 8670 = 8680 
206 NUM, SIMBOLO, NOMBRE = 968 
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304 FAST 
310 CLASIFICANDO 
380 CLASIFICACION COMPLETA 
5000 CLASIFICACION CARACTERISTICAS =5015 =6005 = 6045 
5092 SIM, NOMBRE ELEM. =7395 
8000 VARIABLES 
8500 INTRODUCCION DATOS 
9002 SISTEMA PERIODICO DE ELEMENTOS 
9005 CLAVE DE SIMBOLOS 
9500 CARACTERISTICAS ELEMENTOS 
5400 PREGUNTAS DIDACTICAS 
5605 RESPUESTA =5705 = 5805 
5606 CORRECTA =5706 =5806 
5607 NO =5707 =5807 
PROGRAMA 5 
40 IND COMPONENTES ALIMENTICIOS 
130 INDICE DE ALIMENTOS 
565 ALiM, TOTAL, DIA 
5010 NOMBRE 
7400 NIVEL DE CALORIAS 
8000 VARIABLES 
8060 COMPOSICION 
9008 CLAVE DE SIMBOLOS 


APLICACIONES DIDACTICAS DE LOS ARCHIVOS 

GEOGRAFIA 

Rios: Planteamiento para estudio. Cada rio que desemboca en el mar A$(50,20,12) se 
divide por vertientes B$(3,12) y cada uno de los importantes se subdivide en sus afluentes 
C$(50,20,12). Como medida cuantitativa se puede utilizar la longitud. 


Los formatos de Salida pueden ser: 


A) Clasificación por RIO A$(1,C$,12) RIO, VERTIENTE, LONGITUD en la parte superior y 
la relación de afluentes en el resto de la pantalla. 


B) Clasificación por vertientes B$(1,1 to 12). Reftación de rios que vierten en cada una. 
Planteamiento para repaso. El ordenador debe dar opción para preguntar: 

C) A que río pertenece tal afluente CS(A$,!,1 to 12) 

D) A que vertiente pertenece tal rio DS(A$,B$). 


En caso de referirse a España, como este programa pueden desarrollarse MONTES, 
REGIMEN AUTONOMICO-PROVINCIA-CIUDADES, UBICACION DE INDUSTRIA Y 
RECURSOS NATURALES. 


En un plana internacional el nivel! de análisis ha de ser más pequeño estudiándose: 


E) Clasificación por países. ARCHIVOS DE PAISES, CAPITAL, POBLACION, SUPER- 
FICIE, CIUDADES, RIOS y MONTES MAS IMPORTANTES dentro del formato de la pan- 
talla (que no permite demasiadas florituras). 


F) Clasificación por continentes: Relación entre parejas o trios de conceptos: PAISES- 
CAPITALES, PAISES-RIOS, etc. 


G) En el plano de la geografía económica pueden establecerse clasificaciones para cada 
recurso económico importante (Alimentos, p.e. ARROZ, energéticos, p.e. PETROLEO, 
mineros, p.e. ALUMINIO) con paises, producción anual y recursos. 


H) MAPAS. Dada la ausencia de gráficos de alta resolución este tipo de ARCHIVOS 
es poco útil en el ZX-81. 


HISTORIA 

A) REYES. La más elemental es la clasificación por DINASTIA, REY y años de reinado. 
Clasificaciones de este tipo pueden referirse a paises como Egipto o Roma, pero también a 
España en la Edad Media, en cuyo caso el país sería ARAGON, LEON o CORDOBA, 
p.e., realizándose la definición del archivo en función a las alternativas históricas que se 
han producido en los diversos reinos. Más fácil es la creación de un ARCHIVO relativo a los 
reyes españoles posteriores a los Reyes Católicos. 


B) REINADO. También se puede resumir cada reinado en 18 líneas de pantalla, reser- 
vando las 3 superiores (+1 en blanco) para REY, años de reinado y dinastía. 


C) GUERRAS. Países contendientes, años de comienzo y terminación, Batallas (generales, 
Año). 


LENGUA 


VERBOS. MODOS =A$(5,10) infinitivo, Indicativo Subjuntivo, imperativo, participio, 
gerundio (3 opciones, 1 para cada conjugación). 


TIEMPOS B$(12,16) (Presente, imperfecto, perfecto simple, perfecto, pluscuamperfecto, 
anterior, condicional y tiempos simples y compuestos). Personas (C$(6,9) (yo, tu, el, ella, 
nosotros, vosotros, ellos). 


Los tiempos compuestos podrían serlo mediante A$(!, 1 TO) B$(1, 1 TO), C$(J, 170), 
A$(1,1TO 10) incorporando asi el participio de pasado. 


El planteamiento para estudio sería establecer VERBO, conjugación, MODO y tiempo, y 
obtener en pantalla, personas y formas verbales. 


Para repaso sería establecer lo anterior más la persona (1?, 2*, 32) y el morfema de número 
(singular o plural), respondiendo el ZX-81 '' CORRECTO” o "INCORRECTO, VUELVE A 
RESPONDER”. 


En este ARCHIVO no es necesario establecer clasificaciones. 
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FISIOLOGIA 


SISTEMAS: 

OSEO HUESO A$(30,15) 

CIRCULATORIO ARTERIAS B$(30,15) - VENAS C$(30,15) 
NERVIOSO D$(30,15) 

MUSCULAR E$(30,15) 

PARTE DEL CUERPO F$(30,15) 


Se trata de establecer una relación entre cada parte del cuerpo y el concepto de cada uno de 
los sistemas que se encuentra en dicha parte. 


QUIMICA 


Una aplicación ya se ha expuesto mediante el sistema periódico de elementos químicos. 


EPILOGO - PARTE Vi 


PROGRAMAS *”"SALUDOS” y *”* CARTA” 


Son programas que realmente se han enviado por correo. 


El primero de ellos me fué remitido por Guillermo Meyer desde Cádiz y logró el ''Efecto 
Sorpresa que pretendía. El usuario piensa que el Programa es una broma hasta el final, 
momento en el cual aparece la firma del remitente. 


El segundo fué remitido por mí desde Londres en una tarjeta postal, pretendiendo saludar 
de una forma más o menos jocosa a Guillermo Meyer y José Angel López. 


Este último programa expresa mi saludo al sufrido lector que ha soportado pacientemente 


el presente libro. 


Un consejo sobre ambos programas: 


Abstenerse de utilizarlos en tiempo de guerra o de censura previa de cartas. Puede dar 
lugar a dificultades por '”presunto”” espionaje.(es una broma, claro) 


PROGRAMA NUM.1 


10 LETA =16509 
15 PRINTTAB 2; PEEK A *256 + PEEK 
(A+1) 
20 LET L=PEEK (A + 2) + 256 *PEEK 
(A+ 3)-1 
25 LETA=A+3 
30 FORN=1TOL 
35 IF PEEK (N + A)<>126 THEN GOTO 
50 
40 LETN=N+5 
45 GOTO 55 
50 PRINT CHR$ (PEEK (N + A)); 
55 NEXT N 
60 LETA=A+N+1 
65 IF A<16914 THEN GOTO 15 
70 LETAS$="'C-5E; 8C "0E255,868”*” 
75 FORN =1 TO LEN A$ 
80 FOR J=1 TO 50 
85 NEXT J 
90 PRINT AT 15,12+ N;¡CHR$ (CODE 
AS(N) + 144) 
95 NEXT N 
100 PRINT 
9980 STOP 
9990 SAVE ''SALUDOS'” 
9999 GOTO 1 


10 
LET A =16509 
15 
PRINT TAB 2;PEEK A *256 + PEEK (A + 1 
) 20 
LETL =PEEK (A + 2) + 256*PEEK (A +3) 
-125 
LETA=A+3 
30 
FORN=1TOL 
35 
IF PEEK (N+A)<>126 THEN GOTO 50 
40 
LETN=N+5 
45 
GOTO 55 
50 
PRINT CHR$ (PEEK (N + A)); 


LETA=A+N+1 
65 

¡F A<16914 THEN GOTO 15 
70 

LET A$="'C-5E;8C»"0E255,868”' 
75 

FORN=1TO LEN AS 


80 
FOR J=1TO 50 


85 
NEXT J 
90 
PRINT AT 15,12+ N;CHR$ (CODE AS(N) 
+ 144) 
95 
NEXT N 
PROGRAMA NUM. 2 
UÚ 
ASA 
A 
B 
R 
A 
yA 
0) 
A 
nl 
[O] 
10 LETAS='" "ME: 


20 LETB$="'"5434H82E” 
30 FORN =1 TO LEN A$ 
40 PRINT AT N,13;CHR$(CODE A$ 
(N)-— 120) 
50 PAUSE 50 
60 NEXT N 
70 FOR M=1TO LEN B$ 
80 PRINT AT M + 11,8 + M;¡CHR$ (CO 
DE B$ (M) + 138) 
90 PAUSE 50 
100 NEXT M 
9970 STOP 
9990 SAVE ''CARTA?” 
9999 GOTO 1 


PARTE VI.- RELACION DE SENTENCIAS REM Y PRINT CON CARACTERES INVER- 
SOS O DIFICILES DE INTERPRETAR. 


PROGRAMA 1 

7TOLETAS=”"C-5E;8C =" 0£255,B68”* (NO INVERSOS) 
PROGRAMA 2 

10LETAS=""MF:23J2RG m”” 

20 LET B$ ="*'5434H82E” (NO INVERSOS) 


